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The  purpose  of  the  contract  was  to  build  the  equipment  necessary  to  show  technical  feasibilitj 
of  a  Demand  Modulated  Electrothermal  Atomization  System.  This  system  was  thought  to  have 
advantages  over  current  technology  as  follows: 

1.  Prevents  excessive  analyte  concentrations  in  the  plasma  giving  the  analyst  control 
over  matrix  suppression  effects. 

2.  Allows  the  analyst  to  control  atomization  rates  and  avoid  buildup  of  deposits  in  the 
throat  of  the  sample  cone  opening. 

3.  Allows  the  analyst  to  work  in  the  optimum  counting  range  for  isotopic  ratio  work 
regardless  of  concentration  variations. 

4.  Allows  the  data  to  be  taken  over  the  temperature  dimension,  thus  resolving  isobaric 
interferences  as  well  as  improving  the  signal  to  noise  ratio  resulting  in  improved  detection 
limits  across  the  entire  mass  range. 
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5.  Allows  the  routine  use  of  high  dissolved  solids  (>10%)  as  well  as  solid  sample 
introduction. 

6.  Allows  the  routine  use  of  small  sample  sizes  -  100  ugms  or  less. 

PERFORMANCE  AGAINST  PHASE  ONE  TECHNICAL  OBJECTIVES: 

Item  #1.  Software  was  created  to  collect  and  analyze  data  in  three  dimensions-AMli , 
concentration  and  atomization  temperature.  This  software  gives  the  analyst  program 
control  over  a  comprehensive  list  of  variables.  These  are  as  follows: 

1.  Channels  per  sweep  and  dwell  time. 

2.  Default  maximum  sweeps  per  summation  buffer. 

3.  Default  minimum  sweeps  per  temperature  step. 

4.  Default  maximum  sweeps  per  temperature  step. 

5.  Default  number  of  pulses  per  temperature  step. 

6.  Maximum  temperature  increments  before  shutoff. 

7.  Number  of  initial  sweeps  to  throw  away. 

8.  Starting  and  ending  temperature. 

9.  Number  of  sweeps  per  temperature  increment. 

10.  Size  of  temperature  increments. 

11.  Number  of  sweeps  to  be  stored  in  each  data  histogram. 

12.  Starting  and  ending  amu  for  scans. 

13.  Starting  and  ending  amu  for  threshold  control. 

See  software  manual  for  detailed  description. 

Item  #2.  Atomization  conditions  for  direct  solid  sample  introduction  were  not  accomplished 
due  to  the  complexity  and  time  constraints  of  the  contract.  Solid  samples  were  introduced 
into  the  plasma  under  stable  conditions  and  data  was  taken.  Detailed  methods  development 
will  be  needed  to  determine  valid  parameters  for  specific  analyses. 

Item  #3.  Solid  samples  were  not  analyzed  per  se,  however,  analysis  of  10%  dissolved 
solids  was  accomplished.  These  results  were  presented  at  the  1987  Pacific  Conference 
on  Chemistry  and  Spectroscopy  in  Irvine,  California. 

Isobaric  Interferences  were  temperature  resolved  for  Cd  and  Pd  at  amu  106  and  Hg  and  Pb 
at  amu  204. 

Item  #4.  VG  Isotopes  was  not  able  to  get  the  instrument  to  perform  as  specified.  The 
background  was  high  and  the  responses  were  low  resulting  in  detection  limit  performance 
for  the  standard  instrument  that  was  three  orders  of  magnitude  high.  For  this  reasuu, 
no  detection  limit  studies  were  performed. 

Item  #5.  The  software  and  hardware  were  designed  to  accommodate  computer  control  of 
various  gases  during  an  analysis.  Specific  studies  were  not  accomplished  because  the 
instrument  in  use  for  this  program  had  limited  usable  count  rates  of  two  million  per 
second.  VG's  updated  design  (electronic)  will  now  give  up  to  ten  million  counts  per 
second. 

Item  //6.  Time  did  not  allow  this  item  to  be  completed. 

Although  some  of  the  planned  items  did  not  get  accomplished,  the  equipment  and 
software  built  under  this  contract  has  demonstrated  the  ability  to  perform  these  tasks 
with  additional  work  on  specific  methods  for  each  type  of  analysis. 
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INTRODUCTION 


The  oo*I  of  this  contract  was  to  refine  GSI's  concept  of 
applying  feedback  control  to  an  electrothermal  sample  introduc¬ 
tion  system  as  applied  to  a  commercially  available  mass  spectro¬ 
meter  manufactured  by  VC  Isotopes  The  potential  applications  of 
this  technology  would  be 


l  The  bulk  trace  element  analysis  of  semiconductor  mater¬ 
ials  such  as  silicon  and  gallium  arsenide 

2.  The  bulk  analysis  of  other  materials  such  as  acids, 
solvents,  dopants  and  source  materials 

3  The  ability  to  do  semiconductor  device  depth  profiles 

The  unique  features  of  this  concept  are 
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The  results  presented  in  this  report  tests  the  feasibility  of 
these  concepts 
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EXECUTIVT  SUMMARY 


Purpose 

The  purpose  of  *he  contract  was  to  build  the  equipment 
necessary  to  show  technical  feasibility  of  a  Demand  Modulated 
Electrothermal  Atomization  System  This  system  was  thought  to 
have  advantages  over  current  technology  as  follows 

1  Prevents  excessive  analyte  concentrations  in  the  plasma 
giving  the  analyst  control  over  matrix  suppression  effects 

2  Allows  the  analyst  to  control  atomization  rates  and 
avoid  buildup  of  deposits  in  the  throat  of  the  sample  cone 
opening 

.7  Allows  the  analyst  to  work  in  the  optimum  counting  range 
for  isotopic  ratio  work  regardless  of  concentration  variations 

4  Allows  the  data  to  be  taken  over  the  temperature  dimen¬ 
sion,  thus  resolving  iscbaric  interferences  as  well  as  improving 
the  signal  to  noise  ratio  resulting  in  improved  detection  limits 
across  the  entire  mass  range 

5  Allows  the  coutine  use  of  high  dissolved  solids  OIOS)  as 
well  is  solid  sample  introduction 

s  Allows  the  routine  use  of  small  sample  sizes-  100  ugms  or 

less 

Performance  Against  Phase  One  Technical  Objectives 

Item  #1  Software  was  created  to  collect  and  analyze  data  in 
three  d i mens i ons -AMU ,  concentration  and  atomization  temperature 
This  software  gives  the  analyst  program  control  over  a  comprehen¬ 
sive  list  of  variables  these  are  as  follows 

1  Channels  per  sweep  and  dwell  time 

2  Default  maximum  sweeps  per  summation  buffer 

3  Default  minimum  sweeps  per  temperature  step 

4  Default  maximum  sweeps  per  temperature  step 

5  Default  number  of  pulses  per  temperature  step 

6  Maximum  temperature  increments  before  shutoff 

7  Number  of  initial  sweeps  to  throw  away 

8  Starting  and  ending  temperature 

7  Number  of  sweeps  per  temperature  increment 

10  Size  of  temperature  increments 

11  Number  of  sweeps  to  be  stored  in  each  data  histogram 

12  Starting  and  ending  amu  for  scans 

13  Starting  and  ending  amu  for  threshold  control 
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See  software  manual  for  detailed  description 

Item  #2  Atomization  conditions  for  direct  solid  sample  introduc¬ 
tion  were  not  accomplished  due  to  the  complexity  and  time 
constraints  of  the  contract  Solid  samples  were  introduced  into 
the  plasma  under  stable  conditions  and  data  was  taken  Detailed 
methods  development  will  be  needed  to  determine  valid  parameters 
for  specific  analyses 

Item  #3.  Solid  samples  were  not  analyzed  per  se,  however 
analysis  of  1 0*/c  dissolved  solids  was  accomplished  These  results 
were  presented  at  the  1987  Pacific  Conference  on  Chemistry  and 
Spectroscopy  in  Irvine,  California 

Isobaric  interferences  were  temperature  resolved  for  Cd  and  Pd  at 
amu  106  and  Kg  and  Pb  at  amu  204 

Item  #4.  VG  Isotopes  was  not  able  to  get  the  instrument  to 
perform  as  specified  The  background  was  high  and  the  responses 
were  low  resulting  in  detection  limit  performance  for  the 
standard  instrument  that  was  three  orders  of  magnitude  high 
For  this  reason,  no  detection  limit  studies  were  performed 

Item  45  The  software  and  hardware  were  designed  to  accommodate 
computer  control  of  various  gases  during  an  analysis  Specific 
studies  were  not  accomplished  because  the  instrument  in  use  for 
this  program  had  limited  usable  count  rates  of  two  million  per 
second  -  VC's  updated  design  (electronic)  will  now  give  up  to  ten 
million  counts  per  second 

Item  #6  Time  did  not  allow  this  item  to  be  completed 

Although  some  of  the  planned  items  did  not  get  accomplished, 
the  equipment  and  software  built  under  this  contract  has  demon¬ 
strated  the  ability  to  perform  these  tasks  with  additional  work 
on  specific  methods  for  each  type  of  analysis 

Summary  of  Completed  Work 

1  Designed  and  built  a  torch/furnace  assembly  that  significantly 
reduced  memory  and  allows  the  analysis  of  high  dissolved  solid 
and  solid  samples 

2  Designed  and  built  a  computer  controlled  power  supply  to 
provide  the  power  to  heat  the  furnace 

3  Designed  and  built  the  data  acquisition  board  to  acquire  count 
data  over  amu  and  temperature  in  any  form  desired  under  computer 
p  r  o  g  r  am  control 

4  Completed  the  software  needed  to  control  the  data  acquisition 
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and  data  analysis  under  complete  control  and  definition  by  the 
analyst 

5  Performed  analysis  demonstrating  that  all  items  worked  as 
designed  Data  was  taken  resolving  isobaric  interferences  with 
temperature  as  well  as  the  introduction  of  high  dissolved  solids 
and  solid  samples 

6  Two  patents  were  applied  for  based  on  the  concepts  outlined 
for  this  contract  using  specific  hardware  developed  under  this 
contract  A  copy  of  these  patents  is  provided  in  the  addendum 

Additional  work  needs  to  be  done  to  develop  method  for  the 
analysis  of  materials  of  interest  This  contract  has  provided 
all  the  hardware  and  software  to  accomplish  this 

Work  has  continued  since  the  end  of  this  contract  to  refine  both 
the  hardware  and  software  for  additional  capability  PLease  see 
the  addendum  for  a  summary  of  this  progress 
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Problems  with  Standard  VC  Plasmaquad 
as  Delivered 


Plasaa/Vaeuum  Interface 
Purpose 

The  interface  is  designed  to  allow  as  much  atmospheric  pressure 
plasma  plus  analyte  into  the  high  vacuum  chamber  containing  the 
quadrapole  and  detector  as  possible 

P  r  ob 1 ems 

The  holes  in  the  cones  which  provide  the  entrance  to  the  vacuum 
chamber  must  be  kept  very  small,  of  the  order  of  1  mm  During 
the  analysis  both  the  hole  diameter  and  the  surface  roughness  of 
the  hole  interior  must  remain  constant  This  dees  not  happen  when 
analyzing  many  materials  including  samples  containing  total 
dissolved  solids  above  IS  or  strong  acids 

Discussion 

Conventionally,  if  samples  containing  high  analyte  concentration 
were  analyzed,  the  cone  orifice  would  quickly  become  clogged  and 
degrade  the  signal  in  several  ways  The  hot  analyte  ions  and 
atoms  <  up  to  8000  deg  K  )  strike  the  cold  cone  surface  by 
traveling  through  the  boundary  layer  flow  adjacent  to  the  cone 
with  some  sticking  to  it  Others  will  sputter  material  away 
For  low  analyte  concentrations,  experience  shows  that  an  equi¬ 
librium  is  reached  where  very  little  material  is  either  stuck  to 
the  cone  or  sputtered  off 

At  high  analyte  concentrations  more  and  more  material  sticks  to 
the  cone  creating  a  disequilibrium  that  will  clog  the  cone 
During  this  process  two  things  are  occurring  simultaneously 
First,  the  cone  orifice  is  getting  smaller  causing  the  signal  to 
degrade  because  less  analyte  is  getting  through  the  orifice  per 
unit  time  Secondly,  the  clogging  process  makes  the  hole  surface 
much  rougher  This  in  turn  induces  more  turbulence  in  the  plasma 
flow  through  the  hole  and  hence  a  thicker  boundary  layer  The 
thicker  boundary  layer  produces  more  boundary  layer  mixing  with 
the  main  plasma  flow  that  further  slows  the  velocity  through  the 
orifice  With  this  slowing  the  signal  is  degraded  by  still  less 
analyte  flowing  into  the  vacuum  chamber  as  well  as  the  increased 
generation  of  polyatomic  species  adding  noise  to  the  background 

The  CSI  ETVS  (Electrothermal  Vaporization  System)  solves  these 
problems  by  controlling  the  rate  at  wh ich  the  analyte  is  intro¬ 
duced  at  the  plasma/vac  tium  interface  and  by  using  a  much  smaller 
amount  of  sample  needed  (10-100  uL> 
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P  r i«bc  Issues 


The  detector  is  not  linear  and  not  precisely  reproducible  in  its 
response  to  the  varying  ion  fluxes  The  pulse  width  of  the  preamp 
■■ 4  5  n  s  >  causes  "pulse  pile  up"  or  the  overlapping  of  pulses  to  form 
longer  pulse  with  the  accompanying  loss  of  data 

Disc  uss ion 


The  detector  is  a  c 
active  surface  is  b 
causes  an  electron 
other  Th  e  bias  c  u 
striking  the  active 
about  1 0%  of  the  b l 
the  active  surface 
produce  a  cascade  i 
until  *he  surface  o 
leads  tc>  wh  at  is  c  a 
to  the  inability  of 
affect  begins  at  ab 


ont inuous  dynode  type  in  which  a  continuous 
iased  from  one  end  to  the  other  An  impact 

cascade  to  avalanche  from  one  end  to  the 
rrent  is  less  than  20  uA  If  the  ion  flux 
surface  causes  a  cascade  current  of  more  than 
as  current,  the  bias  current  cannot  replenish 
adequately  Thus,  latet  arriving  ions  do  not 
arge  enough  to  trigger  a  preamplifier  response 
f  the  detector  has  been  replenished  This 
Med  detector  fatiguing  or  loss  of  signal  due 
the  detector  to  respond  adequately  This 
out  2  million  counts  per  second 
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Solution 

The  GSI  ETA  feedback  control  allows  lower  count  rates  to  be 
specified  so  as  not  to  push  the  cascade  current  beyond  the  10% 
bias  limit  The  data  acquisition  board  is  designed  to  handle  10 
r.s  pulses  from  the  preamp  Presently  the  GSI  system  does  not 
have  the  higher  speed  preamp  incorporated  into  current  VC 
s  y  s  t  ems 


Mimorv  in  Torches, _ Spray  Chambers  and  Cones 

P  r  ob  l  id 


Memory  of  many  elements  from  a  simple  that  has  just  been  analyted 
will  carry  into  the  subsequent  samples  This  memory  may  take 
hours  to  decay  to  an  acceptable  level 


Page  6 


Di scuss i on 


The  conventional  ICF  Hass  Spectrometer  setup  uses  a  Scott  spray 
chamber  with  a  Fasse!  Torch  made  of  cuartz  This  combination  is 
fine  for  extremely  dilute  solutions  but  fails  when  large  con¬ 
centrations  of  analyte  are  aspirated  into  the  system 
The  nebulized  sample  traveling  from  the  spray  chamber  to  the 
torch  injector  tip  experiences  an  increasing  temperature  gradient 
and  a  large  surface  area  of  quartz  As  the  flow  moves  the 
contained  particles  may  collide  with  the  wall  and  be  removed  from 
the  flow  The  residence  time  of  the  particles  on  the  quartz  is 
governed  by  many  factors  and  is  not  infinite  Thus  later  sample 
flow  will  capture  particles  released  from  the  quartz  surface 
which  will  become  memory  located  in  the  torch 

Cone  memory  is  memory  generated  by  the  sputtered  material  being 
released  and  entrained  in  the  plasma  flow  through  the  cone 
orifices  The  typical  memory  decay  between  samples  for  the 
standard  spray  chamber  and  torch  is  about  three  orders  of 
magnitude  or  0  IVc  of  the  original  sample 

Solution 

The  design  of  the  electrothermal  furnace  and  torch  was  done  to 
reduce  memory  by  at  least  six  orders  of  magnitude  between 
samples  The  feedback  control  limits  the  ion  flux  out  of  the 
plasma  to  eliminate  cone  clogging  and  hence  a  source  of  memory 
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HARDWARE /SOFTWARE  DEVELOPMENT 


Development  of  a  Tantalum  Furnace 

Work  done  studying  the  characteristics  of  a  prototype 
electrothermal  furnace  design  demonstrated  carbon  to  be  an 
unsuitable  surface  from  which  to  attempt  the  atomization  of 
samples  The  primary  problem  is  precision  The  unpredictable 
nature  of  the  carbon  surface  during  atomization  precluded 
generating  equivalent  quantitative  data  for  the  same  sample  in 
successive  runs  This  result  dictated  another  suitable  surface 
be  found  from  which  atomization  could  take  place  To  this  end 
tantalum  metal  was  chosen  The  properties  allowing  tantalum  to 
be  chosen  include 

(1)  Essentially  a  monoisotopic  element  (99  988*) 

(  2  )  High  atomic  mass  <1  80  9480) 

f  3  >  Very  refractory  (high  melting  temperature) 

The  furnace  design  is  as  follows  Two  copper  electrode 
blocks  have  a  carbon  annular  ring  between  them  When  energized, 
the  carbon  ring  is  heated  from  ambient  temperature  to  greater 
than  2  6  0  0  C  depending  on  the  power  applied  Inside  this  carbon 
ring  is  a  cylindrical  tube  with  a  narrow  snout  at  one  end  made  of 
tantalum  and  inside  the  tube  a  small  tantalum  sample  spoon  may  be 
inserted  or  retracted  from  the  rear  With  the  spoon  inserted, 
the  furnace  becomes  a  small  black  body  oven  in  which  the  sample 
is  uniformly  heated  until  atomization  occurs  A  variable  flow  of 
carrier  gas  (with  or  without  a  vapor  pressure  enhancer  included) 
is  passed  over  the  spoon  through  the  tantalum  tube  to  carry  the 
atomized  sample  directly  into  the  plasma  directly  adjacent  to  the 
furnace  The  complete  injection  nozzle  for  the  plasma  is  also 
constructed  of  tantalum  The  only  glassware  remaining  in  the 
system  is  the  torch  glass  inside  the  RF  coil 

Principles  of  Operation 

The  GSI  Electrothermal  Furnace  is  an  atomization  furnace  and 
an  inductively  coupled  plasma  ion  gun  all  in  one  unit  The  body 
of  the  furnace  is  constructed  of  tantalum  metal  (99  99%  pure 
min)  Surrounding  the  oven  body  is  a  cylindrical  heating  element 
of  graphite  which  is  clamped  between  two  large,  water  cooled 
copper  electrodes  A  graphite  heat  shield  surrounds  the  heating 
element  to  contain  heat  more  efficiently  within  the  oven  during 
operation  Samples  are  introduced  to  the  oven  on  a  small 
retractable  spoon  which  is  breech  loaded  into  one  end  of  the 
oven  The  spoon  is  also  constructed  of  tantalum  A  flow  of 
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gettered  argon  equivalent  to  the  nebulizer  flow  in  a  conventional 
TCP  torch  flows  over  the  spoon  through  the  atomization  furnace 
carrying  vaporized  sample  from  the  furnace  to  the  plasma 

The  plasma  torch  has  been  uniquely  constructed  from  the  same 
tantalum  pieces  that  comprise  the  atomization  furnace  In  this 
way  the  shortest  possibie  distance  from  furnace  to  plasma  has 
been  created  This  is  the  prime  contributor  to  the  extremely  low 
memory  characteristics  of  this  design  The  only  quartz  in  the 
system  is  a  single  outer  plasma  containing  jacket  between  the 
load  coil  and  the  plasma  Careful  design  of  the  furnace  body  and 
injection  nozzle  (equivalent  to  the  quartz  injection  tip  in  a 
conventional  torch)  allows  cool  plasma  gas  to  flow  backward  over 
the  outside  of  the  tantalum  oven  body  but  inside  the  graphite 
heating  element  This  eliminates  any  possibility  of  unwanted 
material  from  the  body  of  the  oven  or  the  outside  atmosphere 
getting  entrained  into  the  analyte  flow  This  also  prevents 
material  being  swept  from  the  plasma  and  condensing  on  the  body 
parts  of  the  furnace  reappearing  later  as  memory 

Repair  and  Maintenance 

The  GSI  Electrothermal  Furnace  has  been  designed  to  require 
only  minimal  maintenance  Periodically  the  quartz  barrel  which 
contains  the  plasma  will  have  to  be  replaced  due  to  recrystal¬ 
lization  and  shattering  of  quartz  when  in  the  RF  field  O-rings 
are  used  several  places  within  the  furnace  for  sealing  gas  flows, 
coolant  flows,  and  aligning  the  quartz  barrel  to  contain  the 
plasma  Ml  these  O-rings  are  viton  with  a  hardness  of  75 
durometer  The  graphite  heating  element  and  heat  shield  should 
be  occasionally  inspect  ei  for  wear  and  development  of  cracks 
With  proper  care  and  use  the  heating  element  will  last  in¬ 
definitely,  however,  graphite  is  very  delicate  material  and  can 
easily  be  broken  with  misuse 

The  tantalum  oven  body  and  sample  holding  spoon  are  the  most 
susceptible  parts  of  the  furnace  Under  no  circumstances  should 
any  gas  containing  oxygen  in  any  concentration  be  fed  through  the 
oven  Tantalum  is  a  tenacious  getter  of  oxygen  and  turns  to  a 
crumbly  white  powder  when  exposed  to  oxygen  at  elevated  tempera¬ 
tures  The  small  volumes  of  acids  and  aqueous  material  pipetted 
onto  the  sample  spoon  will  eventually  erode  the  spoon  due  to 
oxidation  The  life  of  these  two  parts  depends  primarily  on  the 
type  of  samples  and  chemistry  of  solvents  introduced  to  the  oven 
With  time  the  rantaluro  oven  body  will  r e c r y s t a  1  I  i z e  into  hexagon¬ 
al  platelets  and  crumble  This  is  most  aggravated  when  cirbon  is 
present  All  replacement  parts  are  available  from  GSI 
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Furnace  Use 


The  breech  of  the  furnace  is  pneumatically  opened  and  closed 
to  retract  the  spoon  for  sample  loading  The  pneumatic  piston  is 
actuated  by  the  furnace  open/close  switch  on  the  instrument  front 
pane!  This  switch  energizes  gas  flow  solenoids  allowing  gas 
flow  to  the  piston  When  closing  the  breech  block  holding  the 
tantalum  spoon  should  smoothly  engage  the  fitting  in  the  large 
electrode  block  If  it  does  not,  the  nylon  fitting  coupling  the 
spoon  holder  to  the  actuating  piston  should  be  gentiy  stressed  in 
the  appropriate  direction  to  allow  the  breech  blocks  to  engage 
After  a  short  usage  period  the  nylon  fitting  will  take  a  "set" 
and  provide  reliable  breech  closing 

Connections 

Electrical  connections  are  as  follows  the  positive  terminal 
from  the  GSI  Electrothermal  Furnace  Power  Controller  goes  to  the 
ground  furnace  electrode  block  which  is  the  one  directly  bolted 
to  the  blue  frame  of  the  furnace  The  negative  terminal  from  the 
controller  is  connected  to  the  insulated  furnace  electrode  block 
which  is  the  one  mounted  on  the  three  metal  rods  by  nylon 
insulation  spacers 

Input  argon  is  required  in  two  places  At  the  tantalum 
plasma  tioizle  input  and  at  the  carrier  gas  input  on  top  of  the 
tantalum  spoon  holder  assembly  Nominal  flows  providing  the  best 
results  have  been  found  at  about  16  liters  per  minute  for  the 
plasma  noule  and  about  t  liter  per  minute  for  the  carrier  gas 
flow 

Cooling  water  is  input  in  series  through  three  of  the 
furnace  blocks  The  input  should  be  to  the  round  front  block 
shielding  the  tantalum  plasma  nozzle  The  output  from  this  block 
goes  to  the  input  of  the  ground  furnace  electrode  block  and 
finally  the  output  from  the  ground  electrode  block  goes  to  the 
input  of  the  electrically  hot  electrode  block  The  output  from 
this  block  goes  to  the  drain 
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Development  of  the  Furnace  Controller 

Complete  manual  control  of  the  GSI  Direct  Electrothermal 
Atomisation  Furnace  is  impossible  Therefore,  the  furnace  is 
controlled  by  the  GSI  Feedback  Furnace  Controller  This  device 
is  used  to  control  the  power  applied  and  consequently  the 
temperature  of  the  furnace  An  IBM  PC-XT  is  used  to  control  all 
instrument  functions  including  furnace  control  The  prototype 
design  uses  a  power  triac  solid  state  device  and  the  necessary 
digital  electronics  to  convert  an  eight  bit  output  word  from  the 
computer  into  a  power  level  for  the  furnace  Raw  power  is 
brought  to  the  controller  via  a  208  volt  line  This  is  converted 
to  7  5  volts  using  a  5  k  V  A  transformer  with  appropriate  core 
biasing  to  drive  the  furnace  load  of  about  15  milliohms 

Development  of  Controlling  Software 

The  development  of  controlling  and  data  acquisition  software 
for  the  GSI  Direct  Electrothermal  Atomization  Furnace,  the  GSI 
Feedback  Furnace  Controller  and  the  GSI  Real  Time  Data  Buffer 
Card  was  contracted  The  software  must  be  able  to  collect  and 
store  data  in  real  time,  analyze  the  data  sufficiently  to 
determine  appropriate  furnace  control  and  interface  with  existing 
instrument  control  and  data  handling  software 

Control  of  the  instrument  during  data  collection  is  per¬ 
formed  in  the  way  VG  Isotopes  originally  designed  the  VG  Plasma- 
quad  mass  spectrometer  to  operate  The  GSI  software,  in  the 
design  phase,  works  in  parallel  with  the  VG  Plasmaquad  data 
collection  software  but  with  several  additions  Parameters 
governing  a  sample  analysis  are  completely  set  by  the  GSI 
software  These  parameters  are  then  passed  to  the  VG  Plasmaquad 
instrument  control  software  for  the  initiation  of  a  sample  run 
In  addition,  the  initial  furnace  control  parameters  are  set  in 
the  furnace  controller 

Actual  data  collection  parallels  the  VG  Plasmaquad  system  by 
tapping  the  output  signal  from  the  preamplifier  of  the  VG 
instrument.  The  data  is  produced  by  successive  sweeps  across  the 
mass  region  of  interest  After  each  sweep  or  set  of  sweeps 
(controlled  by  initial  parameters)  the  computer  then  decides 
whether  or  not  the  furnace  may  be  incremented  in  temperature 
This  decision  is  based  on  the  number  of  ion  counts  in  each 
channel  If  any  mass  channei  in  the  mass  scan  region  exceeds  a 
preset  threshold  value  for  that  channel,  the  material  is  deemed 
to  be  atomizing  at  too  great  a  rate  and  the  furnace  is  not 
allowed  to  increment  in  temperature  The  furnace  will  be  held  at 
its  present  temperature  value  until  all  mass  channel  values  are 
within  their  respective  thresholds  All  data  is  written  to  the 
hard  disk  in  real  time 
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Data  Acquisition  Hitdwact/Sof  twar*  Operation  and  Interface 

In  August  1986,  the  VG  mass-spectrometer  was  equipped  with 
an  Olivetti  Z8000  based  CPU  and  the  standard  Tracor-Morthern 
multichannel  analyzer  The  MCA  was  accessed  from  the  Olivetti 
through  a  IEEE-488  bus  The  time  required  to  poll  and  extract  the 
data  stored  in  the  MCA  was  about  3  seconds  This  data  extraction 
needed  to  be  done  once  for  each  sweep,  or  about  every  02  seconds 
<2048  c h a nn e I s / swe e p  *  100  uSec / channe 1 )  This  forced  a  data 

collection  path  to  be  developed,  that  was  parallel  to  the  MCA, 
but  allowed  real  time  access  to  the  data 

Once  this  decision  for  custom  electronics  to  collect  the 
data  was  made,  the  next  decision  was  which  CPU  and  language  to 
choose  for  the  host  computer  and  the  software  Since  VC  already 
had  an  IBM  PC  based  system  that  replaced  the  Olivetti  Z8000  and 
their  new  software  was  written  in  Logitec's  Modula-2,  this  was 
examined  and  the  CPU  and  language  were  determined  to  be  very 
d  e  s i [able 

At  this  stage,  late  August  and  early  September  1986,  a 
search  for  off  the  she i f  hardware  was  conducted  that  would  allow 
i  direct  memory  access  (DMA)  of  the  data  from  the  collection 
device  to  computer  memory  to  occur  Mo  reasonable  DMA  boards  were 
found 

The  decision  was  then  made  to  input  data  with  a  parallel  I/O  card 
(made  by  John  Beli  Engineering)  and  collect  the  data  on  a  custom 
in-house  board  The  John  Bell  board  required  one  slot  in  the  IBM 
and  the  in-house  board  required  the  end  slot  and  the  space  next 
t.  o  it 


The  inputs  to  the  data  collection  board  are 

1)  the  next  channel  pulse  (from  the  PQ  controller) 

2)  the  count  pulses  (from  the  La  Croix  amplifier) 

3)  control  signals  from  the  host  computer  (through  the  John 
Bell  card) 

The  outputs  from  the  data  collection  board  are 

1 >  eight  (8)  bits  of  temperature  control  to  the  furnace 
controller  (allowing  256  levels  of  p owe r / t emp e r a t u r e ) , 
controlled  from  the  IBM  computer 

2)  data  and  control  signals  to  the  IBM  through  the  John  Bell 
board 

The  heart  of  the  data  collection  board  consists  of  a  set  of 
two  counters  the  current  temperature  counter  and  the  current 
count  The  current  counter  is  a  free  running  event  counter  that 
counts  pulses  from  the  La  Croix  amplifier  On  a  next  channel 
pulse  the  current  count  is  passed  into  an  on-board  FIFO  and  the 
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counter  is  reset  When  a  start  of  sweep  is  detected,  the  current 
temperature  is  passed  into  the  FIFO  The  data  from  both  of  these 
counters  is  sixteen  (16)  bits  wide  The  temperature  data  has  the 
top  two  bits  forced  on,  this  marking  is  used  align  the  beginning 
of  sweeps  and  control  the  summation  of  data  into  temperature 
bins  The  count  data  has  the  high  bit  clear 

Whenever  data  is  present  in  the  FIFO,  the  IBM  is  notified 
through  a  control  line  The  IBM  then  extracts  data  from  the  FIFO 
through  the  John  Bell  card 

The  VG  software  was  modified  to  work  with  two  GSI  routines 
The  first  routine,  METHOD,  is  the  main  control  routine  The 
second  routine,  GETDATA,  is  the  data  collection,  summation,  and 
storage  routine  GETDATA  is  called  by  METHOD,  after  the  mass- 
spectrometer  begins  collecting  data 

METHOD  prompts  for  the  type  of  action  requested 

1)  data  collection  or 

2  )  data  analysis 

In  the  data  collection  mode,  METHOD  prompts  for  and  inputs  a 
method  or  control  file  A  method  file  contains  the  parameters 
needed  to  run  the  mass-spectrometer  through  the  VG  control 
software,  control  the  power  to  the  furnace,  and  control  the 
summation  of  the  data  Method  files  are  created  and  modified  off¬ 
line  with  a  text  editor  The  furnace  control  is  achieved  by 
allowing  the  t emp e r a t u t e / p owe r  setting  to  be  incremented  by  a 
scheduled  amount,  only  when  the  counting  rate  for  each  channel  in 
the  sweep  falls  below  thresholds  set  in  the  method  file  Addi¬ 
tional  lower  and  upper  limits  on  the  number  of  sweeps  at  each 
t emp e r a t u r e / p owe r  setting  are  imposed  Data  is  summed  within  a 
temperature  setting  into  bins  The  number  of  sweeps  within  each 
summation  bin  is  controlled  E  g  ,  one  sweep  per  bin  allows  very 
fine  granularity  in  the  data  and  many  bins,  while  at  the  other 
extreme,  all  sweeps  at  one  temperature  summed  into  one  bin  allows 
256  bins  total  The  amount  of  granularity  required  is  determined 
by  the  disk  space  available  Each  channel  is  summed  into  a  32  bit 
integer  in  the  summation  bins,  2 0 4 B  channels  *  4  bytes  =  Bkb / sum¬ 
mation  bin  of  data  +  a  header  The  original  disk  space  allocated 
was  10  Megabytes  This  gave  10M/8K  or  about  1100  bins  total  Each 
scan  required  10  Megabytes  of  storage1 

The  data  analysis  allowed  reduction  of  the  data  into  a  VG 
formatted  raw  data  file,  analysis  of  the  temperature  data  with 
the  background  (  lero  temperature)  subtracted  from  the  remainder 
of  the  data,  and  plotting  of  the  raw  data  or  zero  reduced  data 
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TORCH/FURNACE  ASSEMBLY 


<  CD  O  O 
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-  Moveable  Block  E  -  Cooling  Manifold  I  -  Breech  Block 

-  Oven  Block  F  -  Outer  Manifold  J  -  Sample  Spoon 

-  Plasma  Nozzle  G- Tube  Holder  '  K  -  Heater  Element 

-  Sealing  Ring  H  -  Tantalum  Tube  L  -  Heat  Shield 


Page  18 


DATA  GRAPHICS  USING  GSI  SOFTWARE 
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GSI  FURNACE/TORCH  ASSEMBLY 


The  CS1  Package 


The  software  package  includes  several  programs  which  are 
written  in  moduli  2  and  in  IBM  assembly  This  package  has  been 
designed  to  be  compatible  with  the  standard  V  G  Plasmaquad  ICP/MS 
software  The  instrument  is  still  brought  to  operational  mode 
and  returned  to  standby  mode  using  the  VG  Plasmaquad  software 

The  GSI  package  consists  of  the  foliowing  files 
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With  these  twelve  programs  you  enter  another  dimension  in 
ICP/MS  data  collection 

This  software  allows  you  to  collect  data  in  three  dimensions 
in  real  time  from  your  mass  spectrometer  The  dimensions  are 
atomic  mass  units,  ion  counts  and  temperature  of  the  electro¬ 
thermal  atomization  furnace  In  this  way  you  are  able  to  observe 
directly  when  each  element  volatilizes  from  your  sample  of 
interest  You  have  infinite  flexibility  in  progra  mm i n  g  the 
parameters  under  which  data  is  collected  This  is  done  by  means 
of  a  method  file  This  file  is  created  using  any  word  processing 
editor  you  have  available  <  we  use  the  Turbo  editor) 

In  this  file  you  specify  ail  the  parameters  necessary  to  run 
the  instrument  and  control  the  furnace  during  the  run  You  then 
start  data  collection  and  watch1 

How  the  system  works 

The  system  consists  of  several  pieces  of  hardware  and  soft¬ 
ware  The  GSI  Direct  Electrothermal  Atomization  Furnace  replaces 
►he  conventional  I  CP  torch  and  is  controlled  by  the  GSI  Feedback 
Furnace  Controller  Data  collection  is  performed  using  the  GS! 
Real  Tim<»  Data  Buffet  Card  which  is  installed  in  your  IBM  PC-XT 
or  PC- AT  Th  e  software  then  collects  data  analyses  it  to 
determine  the  rate  of  atomization  of  the  sample  and  controls 
power  to  the  furnace  The  advantages  of  this  system  over  the 
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Stanford  VG  software  and  hardware  are 

(1)  the  detector  remains  within  linear  counting  range 
<2>  maintains  a  stable  vacuum  plasma  interface  orifice 
(3)  matrix  effects  in  the  plasma  are  controllable 
<4>  allows  resolution  of  isobarie  interferences 


System  requirements 

In  order  to  run  the  GSI  ICP/MS  software  your  computer  must 
be  an  IBM  PC-XT  or  PC -AT  or  compatible  You  must  have  a  regular 
monochrome  monitor  as  well  as  the  Princeton  for  NEC  multisync) 
monitor  You  will  also  require  at  a  minimum  a  20Mbyte  hard  disk 
drive  and  preferably  a  30  Mbyte  drive 

Getting  started 

To  begin.,  load  the  two  programs  config  sys  and  autoexec  bat 
in  the  root  directory  of  your  hard  disk  and  reboot  the  system 

Load  the  files 

C  'copy  a  autoexec  bat 
C'copy  i  config  sys 

Reboot  the  system  by  pressing  the  CTRL,  ALT  and  DELETE  keys 
simultaneously  Next  create  a  suh directory  called  \M2  as 
foil ows 

Creating  \M2  subdirectory 
C  \ >md  m2 

Go  into  this  subdirectory 
C  'led  m2 
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N  o w  load  the  following  programs  from  the  floppy  disk 

( 1 )  m2  exe 

(2)  getdata  exe 

(  3  >  turbo  exe 

<  4  )  turbo. msg 

( 5 '  markbad  c  ora 

<  6 )  me  thod  t  x  t 

This  is  done  using  the  copy  command  The  LOD  modules  from 
this  package  must  be  loaded  in  a  subdirectory  labeled  \  M  2  L  O  D  Do 
this  as  foil ows 

Return  to  the  root  directory 

C  \ M2  >  c  d \ 

Create  subdirectory  \ M2 LOD 

C  V  >  irtd  m2  1  o  d 

Co  into  \ M2 LOD  subdirectory 

C :  \ ) cd  m2  I od 

Now  copy  the  LOD  files  from  the  floppy  into  this  sub¬ 
directory 

The  next  step  is  optional  but  we  prefer  it  for  housekeeping 
purposes  on  the  hard  disk  Return  to  the  root  directory  as  above 
and  create  another  subdirectory  called  \VG  Go  into  this 
subdirectory  and  copy  all  the  original  VG  Plasmaquad  LOD  modules 
and  the  VG  Plasmaquad  version  of  m2  exe  from  the  root  directory 
into  this  subdirectory  Then  return  to  the  root  directory  and 
delete  all  of  the  VG  Plasmaquad  files  in  this  directory  You  are 
now  ready  to  run  'assuming  all  the  necessary  hardware  is  in¬ 
stalled  correctly  on  your  instrument) 

To  run,  start  the  instrument  normally  using  the  VG  Plasma- 
quad  software  When  stable  and  running  break  out  of  the  VG 
Plasmaquad  software  and  return  to  MS-DOS  by  pressing  CTRL  BREAK 

Using  GSI  ICP/MS  software 

Go  to  the  \  M  2  subdirectory 

C\M2>cd\m2  (return) 

Run  the  program  getdata  exe 

C  \M2>getdata  (return/ 


Run  the  program  method  iod 
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C  \  M  2  >  m  2  method  (return! 

The  method  program  is  menu  driven  and  quite  similar  to  the 
VC  Pl&smaquad  menu  driven  programs  The  method  file  is  created 
using  the  turbo  word  processor  and  is  covered  in  the  method  file 
section  of  this  manual  In  order  to  run  select  the  menu  choice 
listed  in  the  initial  screen  of  the  method  program  which  displays 
as  foil ows 


G5I  DMA  SOFTWARE 

Copyright  1986  Geochemical  Services,  Inc 

R  Read  me  t  h o  d  file 

C  Control  and  run  from  a  method  file 

V  VG  data  format  write  of  zero  sum  data 

Q  Quit  and  return  tc  DOS 

Enter  your  selection  CR,C,V,  or  QI 


R  displays  a  method  file  on  ihe  screen  for  you  to  read 
This  is  useful  in  reviewing  your  sample  analysis  method 

C  passes  analysis  parameters  to  the  instrument  at  the 


beginning  of  data  collection  and  controls  the  furnace  during 


s  amp  1 

e 

analysis  accord 

i  ng 

to  the  method 

file 

A 

nor  ma 1 

te  rmi ni- 

t.  ion 

0 

f  the  instrument 

and 

data  storage 

i  n  a 

background 

corrected 

VG  F  I 

a 

smaquad  binary  d 

a  t  a 

file  occurs  at 

the 

end 

of  data 

col  I e  c - 

t  ion 


V  allows  the  hard  disk  data  storage  area  to  be  interrogated 
and  a  background  corrected  VG  Plasm aquad  type  binary  data  file  is 
written 

I 
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Q  exits  the  GSI  ICFiMS  software  and  returns  to  the  MS-DOS 
operating  system 

Creating  and  editing  method  files 

Complete  control  of  data  collection  and  the  electrothermal 
atomization  furnace  is  done  by  means  of  a  method  file  In  this 
file  all  the  parameters  that  are  required  to  run  the  VG  Plasma- 
quad  during  data  collection  and  control  the  furnace  during  this 
time  are  specified  in  a  method  file  The  format  of  a  method  file 
is  as  foil ows 


2048  0250  channels  per  sweep  and  dwell  time(usec) 

0000  default  max  sweeps  per  summation  buffer 

0000  default  min  sweeps  per  temperature  step 

0000  default  max  sweeps  per  temperature  step 

0000  default  4  of  pulses  per  temp  step 

0210  maximum  furnace  increment  before  shutoff 

0125  4  of  initial  sweeps  to  throw  away 

0000  0000  0010  0100  0001  0120 

min/max  tmp,min/max  sweeps , trap  inc,sums  per  step 
(this  control  line  may  be  repeated  several  tiroes) 


- 1 

start 

amu  and 

threshold 

definitions 

0  0  0  7 

0  125 

start 

i ng  and 

ending  amu 

for  sea  nn i ng 

0  0  2  3 

0027  0500 

start 

i ng  and 

end i ng  amu , 

threshold 

Th  e  first 

line 

de  f i ne  s 

the  numbe  r 

o  f  channe I s 

per 

sweep 

the 

quadrupole  has 

and  the  dwell 

time  at  each  channel 

Th  e 

next 

four 

lines  define  default  parameters  which  would  be  used  only  in  the 
simplest  methods  With  these  four  values  you  can  define  a  simple 
staircase  ramp  for  data  collection  The  sixth  value  is  the 
maximum  power  increment  the  furnace  is  allowed  to  attain  The 
range  is  from  0  to  255  representing  0  to  100  percent  power  to  the 
furnace.  The  number  of  throw  away  sweeps  defines  how  many  of  the 
initial  sweeps  are  to  be  ignored  This  feature  allows  you  to 

ignore  sweeps  when  the  detector  is  first  turned  on  to  allow  for 
any  transients  or  initial  fatiguing  that  may  occur 


(a)  furnace  control  parameters 

The  next  six  numbers  in  a  line  define  control  parameters  for 
the  furnace  and  are  repeated  as  necessary  in  order  to  produce  the 
desired  furnace  temperature  tamp  for  the  particular  analysis 
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being  performed  The  first  two  numbers  in  each  of  these  lines 
define  the  starting  and  ending  temperature  for  the  part  of  the 
temperature  profile  controlled  by  the  respective  lines  These 
numbers  must  range  between  0  and  255  The  next  two  numbers  in 
each  of  these  lines  define  the  minimum  and  maximum  number  of 
sweeps  across  the  mass  spectrum  that  may  be  collected  at  the 
present  temperature  increment  before  the  furnace  is  commanded  to 
the  next  temperature  increment  The  fifth  value  in  each  line 
commands  the  size  of  the  increments  between  successive  tempera¬ 
ture  steps  for  the  furnace  in  the  temperature  interval  specified 
in  that  line  The  sixth  value  defines  how  many  sweeps  across  the 
mass  spectrum  are  collected  in  a  histogram  before  the  data  is 
stored  and  the  next  histogram  is  begun 

The  -1  value  defines  the  end  of  the  furnace  control  data 
The  next  line  identifies  the  starting  and  ending  values  for  the 
sweep  across  the  mass  spectrum  and  is  specified  in  atomic  mass 
units  amul  These  values  are  calibrated  from  the  VG  Plasmaquad 
software  calibration  file  resident  on  the  hard  disk  The 
calibration  may  be  updated  using  the  VG  Plasmaquad  software 

( b )  feedback  threshold  control 

The  final  set  of  lines  with  three  values  each  define  the 
feedback  control  threshold  parameters  The  first  two  values 
identify  the  region  of  the  mass  scan  region  to  which  the  control 
threshold  is  applied  and  is  specified  in  amu  The  last  value  is 
the  threshold  value  above  which  no  mass  channel  inside  the  mass 
range  for  that  threshold  value  is  allowed  to  go  If  the  threshold 
is  exceeded  the  furnace  is  held  at  its  present  temperature 
provided  the  maximum  number  of  mass  scan  sweeps  specified  for 
that  temperature  has  not  been  exceeded  Any  number  of  thresholds 
may  be  set  but  remember  that  thresholds  specified  after  set 
thresholds  in  lines  previous  will  be  overwritten  by  the  next 
threshold  value  if  there  is  overlap 

An  ex  amp  I e 

0023  0067  0500 

0064  0073  0800 

In  this  example  the  region  from  amu  64  to  amu  67  appears  to  be 
controlled  by  two  threshold  values  However,  only  the  last  value 
-  800  -  is  recognized  in  this  region  of  the  mass  spectrum. 

(  c  >  using  the  Turbo  editor 

T  his  editor  is  the  Turbo  Pascal  editor  and  contains  many 
features  For  those  not  fa;:  i  liar  with  this  editor  the  following 
guidel  ines 
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To  enter  the  editor 

C  \  M  2  >  turbo 

Enter  no  (N)  to  the  question  do  you  want  error  messages  - 
these  messages  are  for  the  pascal  compiler  that  is  included  with 
the  editor  Unless  you  are  writing  pascal  programs  these 
messages  are  not  useful  Next  a  menu  with  several  choices  will 
appear  Enter  E  to  invoice  the  editor  Next  you  will  be  asked 
for  a  file  to  edit  You  may  enter  either  a  preexisting  filename 
or  a  new  filename  for  the  title  of  your  method  file  The  file 
METHOD  TXT  included  with  this  software  may  be  used  and  edited  as 
a  model  To  move  the  cursor  the  arrow  keys  on  the  numeric  keypad 
of  your  IBM  PC-XT  or  PC-AT  are  used  The  home  command  moves  the 
cursor  to  the  beginning  of  the  present  line  and  the  end  key  moves 
the  cursor  to  the  end  of  the  present  line. 

There  are  two  modes  (present  mode  is  displayed  at  the  top  of 
the  screen)  while  editing  insert  and  overwrite  Insert  mode 
allows  text  to  be  inserted  in  preexisting  text  while  overwrite 
mode  simply  overwrites  preexisting  text  Characters  are  deleted 
using  the  delete  key  of  the  numeric  keypad  When  in  insert  mode 
lines  may  be  inserted  or  deleted  using  the  enter  and  backspace 
keys  respectively 

To  exit  the  editor  the  following  sequence  is  necessary 

To  exit  to  command  mode  hold  down  the  CTRL  button 
and  type  K  Then  type  D  The  cursor  prompt  is  now 


To  save  your  editing 

>  S 

When  finished  saving 

>  Q 


You  are  now  back  to  MS-DOS  and  are  ready  to  run  the  data 
collection  software  It  is  a  good  idea  to  now  copy  method  txt  to 
another  filename  meaningful  to  the  sample  analysis  it  pertains 
to  In  this  way  you  may  build  a  library  of  method  files  while 
maintaining  the  file  method  txt  as  a  skeleton  guide  when  editing 

Processing  data 

The  program  method  writes  a  binary  data  file  equivalent  to 
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the  VC  Flasmtquad  raw  data  file  except  that  a  background  constant 
for  each  mass  channel  in  the  sweep  is  subtracted  from  the  data 
These  constants  are  determined  by  the  number  of  background  sweeps 
specified  in  the  method  file  Each  of  the  stored  mass  scan 
sweeps  are  interrogated  and  the  total  sum  of  these  sweeps  on  a 
channel  by  channel  basis  are  divided  by  the  number  of  sweeps 
making  up  the  sum  Since  statistically  this  value  can  lead  to 
negative  values  in  the  data  file,  any  value  that  is  determined  to 
be  negative  by  this  operation  is  set  to  zero 

The  program  "dataread"  interrogates  the  hard  disk  storage 
area  and  writes  a  set  of  data  files  that  store  response  versus 
temperature  of  the  furnace  for  any  desired  amu 
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ANALYTICAL  PERFORMANCE 


Several  types  of  analysis  were  done  in  order  to  demonstrate 
that  the  software  and  hardware  perforin  as  designed  Because  of 
the  contract  time  and  money  constraints,  detailed  methods 
development  for  the  semiconductor  analysis  in  the  original 
proposal  was  not  possible 

An  analysis  was  done  to  demonstrate  the  ability  of  the 
system  to  resolve  isobaric  interferences  over  a  temperature 
profile  which  was  a  major  goal  of  the  contract  Figure  A  shows 
the  analysis  of  a  sample  containing  both  Cd  and  Pd  At  amu  111, 
Cd  shows  a  signal  vs  furnace  temperature  At  amu  106,  both  Cd 

and  Pd  have  an  isotope  that  can  not  be  resolved  on  the  normal 
mass  spectrometer  Figure  B  shows  the  resolution  of  both  Cd  and 
Pd  vs.  temperature  at  mass  106 

Figures  C  through  L  show  the  responses  of  the  rare  earth 
elements  vs  temperature  These  elements  are  of  interest  for 
mining  as  well  as  the  electronics  industry  With  the  normal 
spray  chamber,  oxides  of  the  lighter  rare  earth  elements  can 
cause  significant  interferences  with  the  heavier  elements  With 
the  temperature  resolved  system  the  oxides  would  be  expected  to 
be  temperature  resolved  No  oxides  are  present  because  of  the 
lack  of  water  in  the  sample  introduction 

Figures  1  through  3  show  data  collected  with  software 
developed  by  G5I  after  the  contract  work.  These  outputs  show  the 
resolution  of  Hg  and  Pb  at  mass  204  on  a  complex  United  States 
Geological  Survey  reference  standard,  GXR-1  This  standard  has  4 
ppm  of  Hg  and  7  0  0  ppm  of  Pb  .  The  sample  was  run  as  a  1  OS 
dissolved  solid  Figure  1  shows  Hg  at  mass  208  Figure  2  shows 
the  Hg  at  mass  202  Figure  3  shows  Hg  at  mass  204  resolved 
against  Pb  at  mass  204 


PATENTS 

Patents  were  applied  for  on  the  f u r na c e / t o r oh  assembly  and  the 
feedback  control  system  as  described  in  the  contract  proposal 
The  concepts  on  which  the  patents  were  based  were  documented 
prior  to  the  contract  award,  however  the  filing  dates  were  after 
the  award  and  some  drawings  developed  during  the  contract  period 
we  re  used 
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Sanple  V.  Sum  -  343045.0  11384933.8 
Standard  V,  Sum  —  174221.8  4819427.8 
Blank  V,  Sum  —  5734.8  55348.8 


8  28  48  48  88  188 

hfl824c.dat  Mass:  288.88 


Figure  1:  Temperature  profile  at  atomic  mass  208Pb.  Three 
profiles  are  plotted:  sample,  standard  and  blank.  Values 
displayed  are  the  peak  value  are  a  single  temperature  and  total 
integrated  counts  under  the  temperature  profile  respectively. 
The  two  spikes  are  temperatures  80%  and  100%  are  due  to 
integrated  background  during  the  furnace  purge  cycle  at  the  end 
of  analysis. 


Sanplt  V,  S 
Standard  V,  S 
Blank  V,  S 


•  28 

hgl826c.dat 


Figure  2 :  Temperature 
analogous  to  figure  1  i 
two  signal  peaks  are  s'. 
during  analysis. 


Figure  3:  Temperature  profile  at  atomic  mass  204.  This  figure 
demonstrates  the  method  of  isobaric  resolution  between  the  204 
isotopes  of  Hg  and  Pb.  Hg  begins  volatilization  at  about  10% 
power  and  ends  at  about  34%  while  Pb  begins  at  about  39%  and 
ends  at  about  60%. 
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TEMPERATURE  PROFILE  FOR  nuqxp3Pcl.dat 


FURNACE  POMER  (X) . 


TEMPERATURE  PROFILE  FOR  nugxp3Cd.dat 


P ar;e  3^ 


,CE  POWER  (X). 


TEMPERATURE  PROFILE  FOR  1901Tm02.ree 


FURNACE  POWER  (X) . 


TEMPERATURE  PROFILE  FOR  1901Er02.ree 


FURNACE  POWER  (X) . 


TEMPERATURE  PROFILE  FOR  1901eu02.ree 


FURNACE  POWER  (X). 


TEMPERATURE  PROFILE  FOR  1901Sm02.ree 


FURNACE  POWER  (X) . 


TEMPERATURE  PROFILE  FOR  1901Nd02 . ree 


FURNACE  POWER  {*) . 


FURNACE  POWER  (X) . 


ADDENDUM 


Svstea  Changes  Sine*  Contract  Comolttion 


So  f  tw* r e 


-Computer  controlled  selection  of  gas  flows  over  sample  during 
analysis 

-Streamlining  of  the  data  collection  process  Data  is  stored  for 
elements  and/or  isotopes  only  if  they  are  specified  in  the  Method 
File. 


-The  structure  of  the  sample  analysis  has  been  formalized  into 
two  formats  a >  an  unknown  sample  and  b  )  a  uniform  matrix 

a)  Unknown  sample  The  t i me - t emp e r a t u r e  profile  of  this 
sample  is  stored  and  then  imposed  on  the  standard  and  the 
blank  If  quantification  is  desired,  the  data  file  must 
contain  a  sample,  a  standard  and  a  blank  analysis 

b)  Uniform  Matrix  This  assumes  that  the  sample(s)  for 
analysis  are  of  a  known  ma  .  :  i  x  The  first  sample 
develops  the  t i me / t emp e r a t u r e  profile  curve  and  the 
analysis  proceeds  as  follows  Time / tempera ture  developing 
sample,  standard,  blank,  sample  1,  sample  2,  etc. 

-Development  of  q  u  a  n  t  i  f  i  c  a  t  i  o  n  software  and  screen  graphics 
capability  Data  is  quantified  by  displaying  a  plot  of  the 
signal  vs  furnace  temperature  for  a  given  atomic  mass  unit 
C amu )  Integration  limits  for  the  plot  are  set  on  the  screen 
under  curser  control  These  limits  are  then  applied  to  all 
analyses  in  a  single  run  (sample,  standard,  blank,  etc.)  for  that 
amu  Similarly,  limits  are  set  for  each  amu  of  interest  A 
printout  may  be  obtained  for  each  amu  containing 
-concentration  +  /-  error 
-response  ■*•  /  -  error 
-detection  limits  +  /-  error 

The  "error"  above  accounts  for  statistical  errors  in  the  data 
only  All  graphics  displays  may  be  printed  in  hard  copy 

-Scanning  in  both  the  sweep  mode  and  single  ion  mode  is  possible 


Critical  issues  were  the  amount  of  data  generated  and  saved, 
the  type  of  analysis  needed,  a  need  for  controlling  the  mixture 
of  gases  flowing  at  different  temperatures,  and  hi>w  to  analyze 
data  when  the  time  at  temperature  varied  in  the  sample,  standard, 
and/or  biank  A  second  major  development  effort  for  the  software 
and  hardware  began 


From  the  crude  proof  of 


principle  software  developed  during 
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the  first  effort,  a  user  friendly,  fully  functional  analysis 
product  was  defined  The  enhancements  include 

1>  automated  data  collection  in  two  modes  Sample  l, 

Standard  1,  Blank  1,  Sample  2,  Standard  2,  ,  Blank  1, 

Standard  1,  Sample  1,  Sample  2, 

2>  a  simple  built-in  editor  for  the  method  files, 

2 i  display  and/or  plotting  of  the  temperature  spectra, 

4>  graphic  selection  of  the  temperature  region  used  for 

analysis, 

5  <  analysis  of  the  data,  computing  concentration  and 
detection  limits, 

6)  summation  of  data  at  20  AMU's  with  individually  selected 
half-widths  for  summation  (not  ail  data  kept), 

7>  summation  of  the  data  was  simplified  to  a  total  of  257 
bins  (numbered  -i  for  detector  stabilisation  at  0  tempera¬ 
ture,  and  0  to  255),  one  for  each  temperature, 

8)  single  ion  mode, 

9 )  valve  control  for  gases, 

1 0 )  time  collection  of  data  for  non-furnace  applications 

The  hardware  was  productized  from  the  original  two  board  set 
into  a  single  board  that  included  <1  bits  to  control  valves  for 
gases 

HARDWARE 

Data  Acquisition  Board 

-The  data  acquisition  and  IBM  PC/XT/AT  interface  hardware  has 
been  developed  into  a  finished  PC  board  and  professionally  laid 
out  and  assembled 

-The  electrothermal  furnace  power  controller  power  supply  system 
has  been  completely  redesigned  incorporating  a  switch  mode  solid 
state  DC  power  supply  The  power  output  is  much  smoother  and 
more  precise  than  the  initial  unit  built  for  the  contract. 

-Design  refinements  in  the  funuce  /  torch  assembly  have  been 
implemented,  the  most  significant  being  a  reduction  in  the  amount 
of  tantalum  required  to  construct  the  furnace  body 
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SOFTWARE  CODE 


d  umray 

method  text  file  for  testing 

2048 

0100  channels 

per  swe  e  p 

,  i  n  t 

egrat ion 

t  i  me 

in  usee 

00  2  0 

d  e  f  a  u  1  t 

roa  x  swe  e  p  s 

per 

s umma  t i on 

buf  f  e 

r 

0  0  10 

d  e  f  a  u  i  t 

min  swe  e  p  s 

per 

t  emp 

0  100 

default 

ma x  swe  e  p  s 

per 

t  emp 

00  10 

d  e  f  a  u  1  t 

#  pulses  per  temp  step 

02  10 

max  temp 

stop  wh  e  n  this  is 

exceeded 

0  100 

ini  t i a  I 

swe  e  p  s  to 

t  h  r  ow 

ewa  y 

0000 

0000  OiOO  0100  OOOi  0055  start/end  temp,  mi 

n  /  ma  x 

swe  e  p  s  , 

t  emp 
OOOi 
-  1 

0  0  0  2 
0  0  0  2 


pulses,  max  sweeps/sum 
0210  0020  0100  0010  0  i  0  ! 


0  2  20 
0002 


start  amu  definitions 
full  range  of  amu ' s  to 


scan 


1000 


starting  amu,  ending  amu, 


threshold 


0003  0010  0500 
0011  0226  0100 
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DEFINITION  MODULE  GSI 


FROM  DataBase  IMPORT  She  r  tName  L  o  ngName  , 

FROM  PQFiles  IMPORT  Da t a He  a d e r RC D ,  DriveTypes, 

EXPORT  OUALIFIED  Config, 

Conf i gRCD . 

RCFile, 

De  termineDacsAndStep , 
Abo: t  PQ , 


TYPE  Conf i gRCD  = 
RECORD 
NumP  r  A v 
NumP I  A v 
NumPe  r  s Av 
NuniMC  A  A  v 
P  r  i  n  t  e  tHo 
Plot  terNo 
P e  r i p  hNo 
NumA  u  t  o  S 
Au t 0N0 
RackCode 
NumXTub  e  s 
NunYT ub  e  s 
Ra  ckY 1 
Ra  c  k  X  i 
RackYStep 
RackXStep 
Height 
UpT  i  me 
WT  i  me 
Drive 
MCANo 
Au  t  oShu  t 
Dummy  A , 
Dummy  B 
De  a  dT i me 
Sk i pMasses 
END  , 


CARDINAL , 

CARDINAL ; 

CARDINAL , 

CARDINAL , 

CARDINAL , 

CARDINAL , 

CARDINAL , 

CARDINAL , 

CARDINAL , 

CARDINAL , 

CARDINAL , 

CARDINAL  , 

CARDINAL , 

CARDINAL , 

CARDINAL , 

CARDINAL , 

CARDINAL , 

CARDINAL  , 

CARDINAL , 

Dr i veTypes , 

CARDINAL , 

BOOLEAN , 

BOOLEAN , 

REAL  , 

ARRAY  Cl  361  OF  REAL 


VAR  Config 


Conf i gRCD , 


PROCEDURE 

7K0CEDURE 

PROCEDURE 


DetermineBacsAndStepfVAR  HeaderBIock 
RCF lie, 

Abor  t  PQ , 


DataHeaderRCD) 


END  GSI 
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page  65,132 
TITLE  GET  DATA 

GET  DATA  Summation  and  Storage  Program 


Written 
Updated 
Up d a  ted 
Updated 
Updated 


by  J  R  Hanratty 
1 6 -No  v -  1 9  8  6 
2  4-Dec-  1986 
1 1 -Jan-i 987 
13-Jan-1987 


,  Copyright  1986  by  James  R  Hanratty  and  Geochemical 

Services,  Inc 


,  325  Mariposa  Drive 

,  Camarillo,  CA  93010 

,  (805)  484-1414 

I 

,  ALL  RIGHTS  RESERVED 

I 

No_Buffers  =  14  ,  number  of  buffers  reserved  to  hold  data 

,  o i d  No  Buffers  =  i i 


hardware  definitions 


sma  x  t  e  q  u 

s  t  emp  e  q  u 

text  messages 
s  t  i me  t  e  q  u 

s  t  i  me  e  q  u 

schan  equ 


0  b  0  0  0H+ (  19*  10  >  +4 
0b00  0H+  <  2  0  *  i G  >  +  4 

0  b  0  0  0H+ ( 2 1  *  1 0 )  +  4 
0b00QH+ ( 22* 1 0 ) +4 
0  b  0  0  0  H  + ( 2  3  *  1 0 ) +4 


crt  locations  for 


port 

_a 1  EQU 

3  AOH 

control  out 

Ai 

_I_ENB 

EQU 

0  iH 

,  IBM  START 

SCAN 

A  1 

_NE  XT 

EQU 

0  2H 

,  IBM  NEXT  CHANNEL 

A  1 

_TEMP 

EQU 

0  4H 

,  STEP  TEMP 

A  l 

_RESET 

EQU 

0  8  H 

,  RESET 

A  i 

_  I  _D  I  S 

EQU 

0  0  H 

,  INTERRUPTS 

D  I  S  A  B  L 

E  ,  1 

ST  OF 

3  BIT! 

A  1 

_I_1 

EQU 

1  1H 

,  INTERRUPTS 

ENABLE 

ON 

EVERY 

1 

A  1 

_I_2 

EQU 

2  1H 

,  INTERRUPTS 

ENABLE 

ON 

EVERY 

2 

Al 

_  I  _4 

EQU 

3  1  H 

,  INTERRUPTS 

ENABLE 

ON 

EVERY 

4 

Al 

_I_8 

EQU 

4  1H 

,  INTERRUPTS 

ENABLE 

ON 

EVERY 

8 

Al 

_I_S 

EQU 

7  1H 

,  INTERRUPTS 

ENABLE 

ON 

EVERY 

START 

port 

_b l  EQU 

por 

t  _a  i  + 

1;  control  in 

B  1 

_FULL 

EQU 

0  l  H 

,  FIFO  FULL 

B  1 

_NEAR 

EQU 

0  2H 

,  FIFO  NEAR 

FULL 

B  1 

_H  A  L  F 

EQU 

0  4  H 

,  FIFO  HALF 

FULL 

B  1 

_EMPTY 

EQU 

0  8H 

,  FIFO  EMPTY 

B  1 

_ERROR 

EQU 

1  OH 

,  WRITE  ERROR 

port 

_ c 1  EQU 

port  _b l  + 

i  ,  not  used 

port 

_1  EQU 

por 

t  _c  1  + 

1  ,  control  wo  r  d  8  2  h 

mo  d  e 

0 
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port_a2  EQU  port_l  +  t  ,  lsb 

p  o  r  t_b  2  EQU  pott_i2  +  1  ,  msb 

port_c2  EQU  port_b2  i  ,  hand  shaking 

C2_BUFFER_FULl  EQU  02  ,  THERE  IS  DATA  IN  THE  BUFFER 

port  _2  EQU  port  _c  2  +  ;  ,  control  word  B6H  MODE  1 

P  2_I NTR  EQU  OSH  ,  INTERRUPT  on 

HEADER  EQU  0 

flags  EQU  0  ,  flags  (hi  4  bits)  + 

,  data  length  (low  12  bits) 

flag  s b  ad size  equ  0  8  0  0  0  h  ,  data  buffer  wrong  length 

f i ag s_d a t a_o v e r _r un  equ  04000h  ,  no  free  data  buffer 
flag  s_e  r  r  o  r  2  equ  02000h 

fiags_errori  equ  OlOOOh 

TEMP  EQU  2  ,  TEMP  FOR  THE  CURRENT  BUFFER 

START_T I  ME  EQU  4  ,  STARTING  TIME  IN  SWEEPS 

,  FROM  START  OF  SUMMATION 

ELAPSE D_T I M E  EQU  6  ,  ELAPSED  TIME  IN  BUFFER  IN  SWEEPS 

data__offset  EQU  8  ,  offset  to  start  of  data  in  buffer 

buffer_Iength_b  equ  < 5 1 1 + da t a_o f f se t + 8 1 9 2 )  and  OfeOOh  ,  round 
up  to  next 

bu f £ e r_I eng th_w  equ  b u f f e r_l eng t h_b / 2  ,  sector 

boundary 


public  s umroa  t i on 

SUMIT  SEGMENT  PARA  'CODE' 

ASSUME  C3  SUMIT,  DS  SUMIT,  ss  a_stack 
,  assume  es  du  mm  y  ,  debug  code  only 

,  DAT  A 

3ctive_flag  dw  0  ,  status  flag  for  data  collection 

,  0  -  -  inactive, 

,  i  ->  collecting 

s  u mm a tion _ buffer _ ptr  dd  0  ,  summation  buffer 


d  a  t  a_c  a  p  t  u  r  e_p  t  r 

dd 

0  ,  -  >  d  a  t 

a  capture 

buf fer_index 

dw 

0 

,  index  into  tables  4  bytes 

buf  fer_chain 

DD 

No  _ 

Buffers 

d  up  ( 0  ) 

il,''.  X_swe  e  p  s_S  urn 
s  uni  tion 

DW 

256 

DUP  ( 0  > 

,  max  allowed  sweeps  per 

Ma  x_Swe  e p_Temp 

not 

dw 

”>  c  . 

L  U  t 

d  u  p  (  0  ) 

,  max  sweeps  per  temp 
,  while  above  threshold  or 

M i n_Swe  e  p_T emp 
regard  less 

dw 

256 

d  u  p  (  0  / 

,  min  sweeps  per  temp, 
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of  the  thresholds 


T  emp_Ramp 
mended  step 

dw 

2  56 

d  u  p 

<0>  ,  #  temp  pulses  per  com- 

THRESHOLDS 

DD 

2  0  48 

DUP 

<Q>  ,  the  thresholds 

Summa  t i on_F lags 
flags 

DD 

2  0  4  8 

dup 

(  0 )  ,  data  capture  and  summation 

C o mma n d e d _Te mp 

dw 

0 

,  commanded  temperature 

new_t  emp 

dw 

0 

,  new  t  emp  setting 

MIN_SWEEP 

DW 

0 

,  min  sweeps/ temp 

TEMP_INC_PULSES 

DU 

0 

,  6  t  emp  i nc  pulses 

ma  K_swe e  p_b  u f  f  e  r 

dw 

0 

,  max  #  swe e p s / b u f f e r 

, the  foil owi ng  wo 

r  d  s 

mu  s  t  be 

cont iguous 

CHANNEL_PER_sweep 

DW 

0 

,  size  of  data  requested 

Ma  x _T emp 

dw 

0 

,  Commanded  stopping  Temp 

MAX_SWEEP 

DW 

0 

,  max  sweeps/temp 

firs  t_s  e  c  t  o  r 
data 

dw 

1  0  1 

,  first  sector  on  drive  for 

d i s  k_d  rive 

dw 

2 

,  the  disk  drive  to  use 

, end  of  sacred  area, 
buf f  e  r 

caused 

by 

the  order  of  copy  from  the  callers 

inhibi t_temp_inc 

dw 

0 

,  data  is  above  threshold 

Channel _Th  r  e  sh  o I d 

dw 

0  ,  0 

,  exceeded  channel  and 

threshold 

T ime_a  t_Temp 

dw 

0 

,  elapsed  time  at 

t  emp  era- 

t  u  r  e 

t  emp_b  urap e  d 

dw 

0 

,  the  temp  has  been  bumped 

CH ANNE  L_P  ER_swe  e  p 

_4  DW 

0 

,  size  of  data  requested*4 

s  t  a  r  t i ng_s  e  c  t  o  r 

dw 

- 1 

,  the  sector  for 

next  write 

t i me_P r  omp  t 

db 

X  X  X  X  X 

Cur  rent  swe  e  p ‘  , 0 

t  emp_P  r  omp  t 

db 

X  X  X  X  X 

Current  t  emp '  , 0 

Ma  x_Temp_p r  omp  t 

db 

X  X  X  X  X 

Commanded  Maximum 

t  emp  '  ,  0 

s  ameT i me_P  r  omp  t 

db 

X  X  X  X  X 

Sweeps  at  current 

t  emp  '  ,  0 

Channel _P  r  omp  t 

db 

xxxxx  xxxxx 

Channel  and  threshold 

exceeded' ,0 


START  PROC 
SUMMATION 


mo  v 

sp  , 

offset  a_stack  top_stac 

k  setup 

mo  v 

a  x  , 

s  e  g  a  _s tack 

mo  v 

s  s  , 

a  x 

PUSH 

CS 

,  SETUP  DATA 

SEGMENT 

POP 

DS 

P  a  q  e 


J  1 


MOV 

AH  .  3  7 

,  SET  UP  INTERRUPT  VECTOR  4Fx 

MOV 

AL  ,  4  f  H 

,  CHANGE  INTERRUPT  REQUEST 

MOV 

I  NT 

DX,  OFFSET  SUM  IT  INT_ENTRY 

33 

mo  v 

a  i 

,  0  9  2H 

,  set  up  ports 

mo  v 

d  k 

,  p  o  r  t 

o  u  t 

d  x 

,  AL 

mo  v 

a  i 

,  0  B  6  H 

mo  v 

d  x 

, por  t_i 

o  u  t 

d  x 

,  AL 

mo  v 

a  1 

, p  2 _I NTR 

,  enable  interrupts 

mo  v 

d  x 

, po r  t_2 

o  u  t 

d  x 

,  AL 

mo  v 

a  1 

,  A  1  __RE  S  ET 

reset  the  hardware  to  start  new 

m  o  v 

d  x 

, pat  t_ai 

o  u  \ 

d  x 

,  AL 

mo  v 

d  x 

, p  o  r  t_i i 

Kor 

a  x 

,  a  x 

clear  reset  pulse  and  temp 

o  u  t 

d  x 

.  AL 

mo  v 

d  x 

sag  i_5tick 

set  up  pointers  in  tables 

^  d  d 

d  x 

,  0  0  f  f  f  h 

,  cross  next  64k  boundary 

a  nd 

d  k 

,  0  f  0  0  0  h 

,  and  fail  back  to  the  boundary 

add 

d  x 

.  2  0  0  0  h 

,  reserve  two  64k  buffers 

add 

d  x  ,  3  0  0  0  h 

,  reserve  three  c4k  buffers 

me  v 

a  x  , 

0  3  1  0  0  h  ,  function  code  and  return  status 

I  NT 

3  3 

mo  v 

d  x  , 

s  e  g  s  umma  t i o  n 

:  mp 

e  x  x 

t  2 

P  i  g  e  12 


INT_ENTRY  ,  SOFTWARE  INTERRUPT  ENTRY 


CMP 

AL  ,  0 

IDENTIFY  THE  FUNCTION  CODE 

JZ 

START_SUM_R 

,  START 

CMP 

AL  ,  2 

,  DISK  READ 

JZ 

D I SK_RE AD 

CMP 

AL  ,  3 

,  DISK  WRITE 

JZ 

D I SK_VR I TE 

cmp 

a  i  ,  <1 

,  get  status 

3  Z 

Get_status 

,  yes 

crap 

a  I  ,  5 

terminate  and  stay  resident 

r  emo  ve  our  code 

3  * 

exit 

CMP 

AL  ,  1 

,  STOP 

3  n  z 

s  umraa  t i o n_e  x i t 

Jmp 

STOP_SUM 

,  YES 

ST  ART_SUM_R 

JMP 

START_SUM 

D I SK_READ 

CALL 

RE  AD_D I SK 

s  urama  t  i  o  n_e  r.  i  t 

IRET 

,  UNKNOWN  RETURN 

D I SK_WR I  TE  CALL 

WR I TE_D I SK 

JMP 

SUMMATION„EX IT 

get_status 

s  t  i 

push 

b  x 

gs_i 

mo  w 

bx.cs  a  c  t  i  v  e_ 

flag  ,  collection  st 

o  r 

b  x  ,  b  x 

3  n  z 

gs_i 

pop 

b  x 

jmp 

s  umraa  t i o  n_e  x i 

t 

D i sp_Terap 

push 

a  x 

push 

b  x 

push 

c  X 

push 

f  X 

push 

d  i 

push 

s  i 

push 

d  s 

push 

e  s 

rao  v 

a  x , s  t  emp 

mo  v 

e  s  ,  a  x 

x  o  r 

b  x  ,  b  x 

mov  ax,cs  C orara a n d e d_Temp 
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call 

i  2  b  i  n 

pop 

e  s 

pop 

d  s 

pop 

s  i 

pop 

d  i 

pop 

d  x 

pop 

c  X 

pop 

b  x 

pop 

a  x 

ret 

?_Ms  x_Temp 

push 

a  x 

push 

b  x 

push 

C  X 

push 

d  x 

push 

d  i 

push 

5  i 

push 

d  s 

push 

&  s 

mo  v 

a  x , sma  x  t 

rao  v 

e  s  ,  a  x 

x  o  r 

b  x  ,  b  x 

mo  v 

a  k  ,  c  s  Max  e  m  p 

call 

i  2  b  i  n 

pop 

e  s 

pop 

d  s 

pop 

s  i 

pop 

d  i 

pop 

dx 

pop 

c  X 

pop 

b  x 

pop 

a  x 

ret 

i_T i me  s 

push 

a  x 

push 

b  x 

push 

c  X 

push 

d  x 

push 

d  i 

push 

s  i 

push 

d  s 

push 

e  s 

1  e  s 

b  x  ,  c  s  s  unina  t  i  o  n_b  u  t  £  e  r  t  r 

mo  v 

ax,es  start_timeCbx3 

add 

ax  ,  es  fc i apsed^t imeCbx] 

mo  v 

b  x  ,  s  t  i  me 

mo  v 

e  s  ,  b  x 

x  o  r 

b  x  ,  b  x 

c  a  i  i 

l  2  b  i  n 

t  i  me 
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mo  v 

a  x , c  s  T i me_ 

A  t_Temp 

mo  v 

d  x , S  t i meT 

mo  v 

e  s  ,  d  x 

x  o  r 

b  x  ,  b  x 

call 

i  2  b  i  n 

pop 

e  s 

pop 

d  s 

pop 

s  i 

pop 

d  i 

pop 

d  x 

pop 

c  X 

pop 

b  x 

pop 

a  x 

ret 

D i s  p_Th  r  e  sh 

push 

a  x 

push 

b  x 

push 

C  X 

push 

d  x 

push 

d  i 

push 

s  i 

push 

d  s 

push 

e  s 

x  o  r 

b  x  ,  b  x 

mo  w 

a  x , c  s : Channe 1 

_Th  r  e  sho 1 d 

mo  v 

c  x , s  c  h  an 

mo  v 

e  s  ,  c  x 

call 

i  2  b  i  n 

mo  v 

a  x , c  s  Channe 1 

_Th  r  e  sh o  1  d  + 

mo  v 

b  x , schan 

mo  v 

e  s  ,  b  x 

mo  v 

b  x  ,  l  2 

call 

i  2  b  1  n 

pop 

e  s 

pop 

d  s 

pop 

s  i 

pop 

d  i 

pop 

d  x 

pop 

c  X 

pop 

b  x 

pop 

a  x 

ret 

mo  v_t e  x  t_c r  t 

mo  v 

e  s  ,  d  i 

hot 

d  i  ,  d  i 

mt  2 

mo  v 

a  1  ,  c  s  :  C  s  i  ] 

;  get  t 1 

o  r 

a  l  ,  a  I 

,  done  ? 

j  ns 

mt  1 

,  no 

character 
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ret 


INTEGER  TO  EE  DISPLAYED 
STARTING  POSITION  IN  DISPLAY 

,  SET  THE  STARING  STRING  TO 

,  GET  FIRST  DIGIT,  TENS  OF 


mo  v 

e  s 

l  d  i  ]  ,  a  I 

i  nc 

S  1 

add 

d  i  , 

2 

jmp 

mt  2 

I2BIN:  ,  INPUTS  AX 

,  ES  BX 

MOV  DL  ,  '  • 

BLANKS 

MOV  CX , l 0000 

THOUSANDS 

CALL  GET_D I G IT 

MOV  CX , i 000 

CALL  GET  DIGIT 


MOV  CX  ,  100 

CALL  G  ET__D  I  G  I  T 

MOV  CX ,  i  0 

CALL  GET_D I G I T 

OR  AL ,  '  0  ' 

INTEGER , 

MOV  ES  CBXI , AL 

RET 

GET_D I G I T 

MOV  DH , DL 

G  ET_D I G I T_ I  . 

CMP  CX , AX 

JA  GET_D I G I T_3 

SUB  AX , CX 

OR  DX ,  '  00 

ADD  DL  ,  1 

JMP  GET_D I G IT_1 

G  ET_D I G I T_3 

MOV  ES  C  BX I  , DL 

MOv  DL  ,  DH 

ADD  B X  ,  2 

POSITION 

RET 


.lx  =  i 


d  p _ s um_p  t  r 

EOU 

00 

d  p_m i n_p  t  r 

EQU 

0  4 

d p_Ramp_p t  r 

EQU 

08 

,  THOUSANDS 

,  HUNDREDS 

,  TENS 

,  INSURE  UNITS  ARE  SHOWN  AS 
,  NO  LEADING  BLANKS 

.  SET  DEFAULT  CHARACTER 

,  DO  WE  HAVE  A  DIGIT’ 

,  NO,  DONE 

,  SET  TO  DIGIT 
,  BUMP  DIGIT 
,  MORE’ 

,  OUTPUT  THE  CHARACTER 
,  POINT  TO  THE  NEXT  CHARACTER 

summation  flags  buffer  pointer 
thresholds  ptr 
Temp  ramp  pointer 


P 


age 
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d  p_m in_sweep_ 

p  EQU  12  , 

min  sweeps/ temp 

dp_max_sweep_ 

p  EQU  16  , 

max  swe e p  s / t emp 

dp_m» x_p  t  r 

EQU  2  0  , 

max  sweeps  per  summation  ptr 

dp  ...channels 

EQU  24  , 

channels/ swe  e  p 

dp_Ma  x_ t  emp 

EQU  26  , 

max  commanded  temp 

d  p__Th  r  ow_Awa  y 

e  qu  2  8  , 

#  sweeps  to  throw  away  at  0  temp 

/ 

es  sec  pointer 

START_SUM 

t 

s  t  i 

c  1  d 

,  all 

transfers  in  the  forward  direction 

push 

b  z 

,  save  context 

push 

c  X 

push 

d  x 

push 

s  i 

push 

d  s 

push 

e  s 

push 

d  i 

push 

a  s 

save  these  for  now 

push 

d  i 

mo  v 

a  x  ,  c  s 

mo  v 

d  s  ,  a  x 

,  point  to  the  proper  segment 

mo  v 

ah  ,  3  7 

,  hardware  interrupt  setup 

mo  v 

a  1  , 0  8 h+  3 

,  vector  to  our  summation  code 

mo  v 

dx,  offset  s umi t  ha r d_i n t  ,  our  entry 

i  n  t 

33 

mo  v 

c  o  mm a  n  d e  d 

_Temp , 0  ,  start  temp  ramp  from  0 

pop 

d  i 

,  get  pointer  to  our  data 

pop 

e  s 

,  and  segue n  t  info 

push 

d  i 

,  save  for  later 

mo  v 

b  x  ,  d  i 

-copy 

# 

; copy  control 

/ 

t 

t 

variables 

S  u  mm  ation_flags,  Thresholds, 

T  emp_Ramp , 

mi n_swe e p_t emp ,  ma x_swe e p_t emp , 
Max_sweeps_sum,  channel _p  e  r_swe  e  p , 
Max_temp,  t  h  r  ow.awa y 

i 

1  e  a 

si  , e  s . d  p_ 

channelstdil  ,  starting  location 

mo  v 

d i ,  offset  sumi t  channe l_pe r_sweep 

mo  v 

c  x  ,  l  0 

,  5  wo  rds  =  10  bytes 

mo  v 

a  x  ,  e  s 

mo  v 

d  s  ,  a  x 

mo  v 

d  x  ,  c  s 

mo  v 

e  s  ,  d  x 
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rep  mo  v  s b 


mo  v  e  all  2  wo  r  d  s 


.copy  summation  flags  in 

# 

mov  di,bx  .  get  parameter  index 

mo  v  d  s  ,  a  x 

Ids  si.ds  dp_sum_p t r C d i 1  ,  target  address 

mov  di,  offset  s um i t  : S umma t i on_f 1  a g s  ,  source  address 

mov  cx.  size  Summat ion_f lags  ;  length  of  array 

rep  movsb  .  move  the  array 


.copy  max  sweep s / suma t i on 

mov  di.bx  .  index  to  parameters 

mov  d  s  ,  a  x 

Ids  s i , ds  dp_ma x_p t r C d i 1  ,  source  address 

mov  di, offset  sumit  ma x_swe e p s_s um  ,  destination 

mov  cx,  size  ma x_s we e p s_s um  ,  length 

rep  movsb  ,  move  the  array 


.copy  thresholds 

« 

mo  v  di.bx 

mov  d  s , a  x 

Ids  si.ds  dp  _m i n_p  t  r  C  d i  1 

mov  di, offset  sumi t . thresholds 

mov  cx,  size  thresholds 

rep  movsb 


index  to  parameters 

source  address 
destination  address 
length 

move  the  array 


.copy  t  emp  r  amp 


mo  v 

d  i 

,  b  x 

,  index  to  parameters 

mo  v 

d  s 

,  a  x 

i  d  s 

s  i 

,  ds . dp_ramp_pt  rfdi 3 

,  source  address 

mo  v 

d  i 

.offset  s um i t  Temp_R amp 

,  destination  address 

mo  v 

c  X 

,  size  Temp_r  amp 

;  length 

rep 

movsb 

,  move  the  array 

copy  Mm 

Swe  e  p  s  per 

temp 

mov 

di.bx 

,  index  to 

parameters 

mov 

ds  ,  ax 

Ids 

s  i  ,  d  s 

d p_mi n_swe e p_p C d i 3  ,  source  address 

mo  v 

d  i  ,  o  f  f 

set  sumit. Mi n_swe  e  p_T  emp  ,  destination 

address 

mo  v 

c x  ,  si 

ze  M i n_3we e p_Temp  ,  length 

rep 

movsb 

,  move  the 

array 
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.copy  Max  Sweeps  per  temp 


mov  di,bx  ,  index  to  parameters 

mo  v  d  s , a  x 

Ids  s i , d s . d p_ma x_swe e p_p C d i D  ,  source  address 

mov  di, offset  s urn i t  M a x_swe e p_Temp  ,  destination 

address 


TOO  V 

cx,  size  Ma x_Swe e p_Temp 

,  length 

rep 

mo  v  s  b 

,  move  the 

array 

mo  v 

e  s  ,  a  x 

,  e  s  - >  pa  r  ame  t  e  r  s 

mo  v 

ax, c  s  Ma x_Swe  e  p 

,  set  ma  x 

and  mins 

for 

s we  e  p 

mo  v 

cs  min_sweep,ax 

mo  v 

cs  Max_sweep_Buf  fer  , ax 

,  and  sum 

them  ail 

up 

mo  v 

cs  . Terap_I n c_P u 1 s e  s , 0 

,  inhibit 

t  emp  i n c 

for 

first  step 


mo  v 

a  k  , 

,  seg  a_s  tack 

,  set  up  pointers  in  tables 

add 

a  x  , 

00  f  f  f h 

cross  next  64k  boundary 

and 

a  x  , 

,  0  f  OOOh 

and 

fall  back  to  the  boundary 

mo  v 

b  x  , 

,  c  s 

mo  v 

d  s  t 

,  bx 

mov 

e  s  , 

,  a  x 

use 

the  new  segment  address  of  the 

b  u  f  f  e  r  s 

mov  b u f f e r_i nde x , 0  ,  point  to  the  first  buffer  index 


TOO  V 

wo  id  p  t  r 

s  umma  t 

i on_bu  f  f  e  r_p  t  r 

, BUFFER_LENGTH_B  ; 

s umraa  t i on  - > 

DUMMY 

mo  v 

wo  r  d  p  t  r 

s  umma  t 

i on_b  uf  fer_ptr 

+  2  ,  a  x 

mo  v 

wo  r  d  p  t  r 

d a t a_c a p t u r e_p t r , 0  , 

data  capture  ->  1ST 

REAL 

TOO  V 

wo  rd  p  t  r 

data_captur e_p  t  r  +  2  ,  a 

X 

push 

d  s 

push 

a  x 

,  old 

TOO  V 

d  x  ,  3 

,  show  three 

buffers  to  clear 

mo  v 

d  x  ,  2 

s how  two  b  u  f  f  e 

rs  to  clear 

TOO  V 

d  s  ,  a  x 

L  L  4 

TOO  V 

cx  ,  0  8  0  0  0  h 

t 

length  of  each 

buffer  in  wo  r  d  s 

mo  v 

a  x  ,  0 

, 

data  value  for 

start 

TOO  V 

b  x  ,  0 

' 

initial  index 

L  L  5 

TOO  V 

ds  C  b  x  3  ,  a  x 

add 

bx  ,  2 

1  opp 

L  L  5 

mo  v 

a  x  ,  ds 

t 

get  and  b  ump 

data  seg 
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add 

f  o  r 


add 
mo  v 
dec 
j  n  z 


a  h  ,  i  0  0  0  h 
d  s  ,  a  a 
d  x 
LL4 


pop 

pop 


a  k 
d  s 


MOV 

wo  r  d 

p  * r 

es 

<buf  fer_leng  th_b+TEMP )  , -  1 

,  MARK  THE  CURRENT  TEMP 

,  OF  DUMMY  SUMMATION 

mo  v 

wo  r  d 

p  t  r 

e  s 

f  1  a  g  s  ,  0 

mo  v 

wo  r  d 

p  t  r 

e  s  : 

t  emp  ,  0 

mo  v 

wo  r  d 

P  t  r 

e  s  : 

star  t_t i me , 0 

mo  v 

wo  r  d 

P  t  r 

e  s 

elapsed_time,Q 

mo  v 

wo  r  d 

p  t  r 

e  s 

f  lags  +  buf  fer_length_b, 0 

mo  v 

wo  r  d 

P  t  r 

e  s  : 

start_t ime  +  buf  fer_lengt  h_b , 0 

mo  v 

wo  r  d 

p  t  r 

e  s 

eiapsed_time+buffer_length_b,0 

mo  v 

bx,  offset 

b  u  f  f  e  r_cha i n 

C  A  1  I 

set_ 

pointers 

add 

ax,  1  0 0  Oh 

call 

s  e  t  _ 

p  o  i  n  t  e  t  s 

add 

a  x  , 

1  OOOh 

ca  .  i 

mo  v 
add 
add 
sub 
mo  v 

mo  v 
r  e  s  s 
i  nc 
mo  v 

header 


set_pointets 

ax , CHANNEL_PER_sweep 
a  x  ,  a  x  ,  *  4 

a  x  ,  a  x 

ax, 10  ,  remove  a  few  sweeps  just  in  case 

CH ANNE L_P E R_swe e p_4 , ax 


ax, first _sector 


a  x 


starting_sector , ax 


xmt  disk  xfer 


the  first  is  really 


pop 

d  i 

mo  v 

a  1  , 0  8  2H 

mo  v 

d x  ,  p  o  r  t  _i 

out 

d  x  ,  AL 

mo  v 

a  I  , 0B6H 

mo  v 

d  x , p  o  r  t _2 

out 

d  x  ,  AL 

mo  v 

a  I  ,  p  2  _ I  NT  R 

set  up  ports 


er.  able  interrupts 
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mo  v 

d  x  , 

,  po  r  t_2 

out 

d  x  , 

,  AL 

mo  v 

a  1  . 

,  A 1_RESET 

,  reset  the 

hardware  to  start  new 

mo  v 

d  x  , 

,  p  o  r  t  _a i 

out 

d  x  , 

,  AL 

x  o  r 

a  x 

,  a  x 

,  r  emo  v  e  the 

reset  signal 

out 

d  x 

,  a  1 

mo  v 

d  x  ( 

,  p  o  r  t  _c  2 

,  clear  any 

data  that's  left 

i  n 

a  1  . 

,  d  x 

and 

a  1  , 

,  C2_Bu  f  f  e  r 

_Fu  1  1 

3  2 

a 

dec 

d  x 

i  n 

a  1  , 

,  d  x 

,  ms  b 

dec 

d  x 

l  n 

a  1  , 

,  d  x 

jmp 

X 

mo  v 

mo  v 

out 

dx,port_al 

a  1  , A  1 _I _s  ,  clear 

d  x  ,  A  L 

reset  pulse  and 

arm  interrupts 

xo  r 

mo  v 

out 

a  x  ,  a  x  ,  o  -  > 

dx  ,  2  lh 
d  x  ,  a  1 

interrupt  mask 

reg  of  8259 

mo  v 

mov 

call 

d  i  ,  s  t  erap 

si, OFFSET  temp_prompt 
mo  v_t  e  x  t  _c  r  t 

,  iabel  the  data  area 
,  current  temp  prompt 

mo  v 

mo  v 

call 

d  i  ,  s  t i me 

si, OFFSET  tirae_prompt 
raov_text_cr t 

,  current  t  erop 

p  r  omp  t 

mo  v 

mo  v 

cal  I 

d i  ,  s  t i me  t 

si, OFFSET  s ame t i me_p r omp t  ,  current 

mo  v_  t ext  _c  r  t 

t  erop  p  r  omp  t 

mo v  d  i , schan 

mov  si, OFFSET  channe I _p r omp t  ,  current  temp  prompt 

call  mov_text_crt 

mov  d i  ,  sma  x  t 

mov  si, OFFSET  ma x_t emp_p r omp t  ,  current  temp  prompt 

call  mo v_t  ex  t_c  r  t 

ax, ax  ,  zero  initiil  display; 

cs  C omma nd e d_Temp , a x 
cs  Channel  Th r e s h o 1 d  +  0  ,  a x 


x  o  r 
mo  v 
mo  v 
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mo  v 

cs  Ch a nne i _Th r e sh o I d + 2 , a x 

mo  v 

cs  T i me_A t_Temp , a x 

call 

D i s  p_Th  r  e  s  h 

call 

D i s  p_Temp 

call 

D i sp_T i me  s 

call 

D i s  p_Ma  x_Temp 

mo  v 

c  s  : a  c  t i v  e_F 1  a  g ,  i 

,  snow  active 

pop 

d  i 

pop 

e  s 

pop 

d  s 

pop 

si  .restore  context 

pop 

d  x 

pop 

c  X 

pop 

b  x 

3  mp 

s  umma  t i o  n_e  x i t 

set  _p  omters 

mo  v 

c  x  ,  7 

not 

d  x  ,  d  x 

1  7  mo  v 

cs  l  b  x  1  , d  x 

mo  v 

cs.2Cbx],ax 

add 

bx  ,  4 

add 

dx,buffer_Iengt  h_b 

loop 

1  7 

ret 

STOP_SUM 

i  n  t 

08h  +  3 

fake  data  ready  to  collect  any 

data 

"  mo  v 

a  x , a  1 _r  e  s  e  t  , 

reset  temp  and  turn  interrupts 

o  f  f 

mo  v 

d  x , p  o  r  t  _a  1 

-M  t 

d  x  ,  a  1 

xor 

a  x  /  a  x  , 

turn  off  interrupts 

out 

d  x  ,  a  I 

call 

flu  s h_ t  o_d i sk 

mo  v 

c  s  a  c  t i v  e_F 1  a  g ,  0 

,  show  inactive 

imp 

s  umma  t i o  n_e  x i  t 

her  d_ i n  t 

c  I  d 

,  all  transfers 

in  direction 

push 

d  i 

push 

S  1  i 

save  context 

push 

d  s 

push 

d  x 
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push 

a  x 

push 

b  x 

push 

e  s 

push 

c  X 

Ids 

b  x  ,  c  s 

data 

_c  a  p  t  u  r  e_p  t 

t 

1  e  s 

d  i  ,  c  s  : 

s  umma  t i o  n_ 

b  u  f  f  e 

r_p  t  r 

xo  r 

a  x  ,  a  x 

,  turn 

o  f  f 

interrupts 

mo  v 

dx , por 

t_a  1 

out 

d  x  ,  a  1 

mo  v 

a  1  ,  2  Oh 

,  send 

e  o  i 

to  8  2  5  9 

out 

2  0  h  ,  a  1 

s  t  i 

,  a  1  1  ow 

o  t  h  e 

r  interrupts 

data 

mo  v 

si  ,  ds 

flagsibxl 

,  index  into  data 

mo  r  e_d  a  t  a_2 
mo  v 
i  n 

test 
i  t 

,  j  * 


dx , por t_c 2 
a  1  ,  d  x 

a  I  , c  2 _fa u  f f  e  r_f  u 1 1 
mo  r  e_d a  t  a_2 
emp  t  y 


test  for  errors  and  data 
is  there  data’ 

,,  jrh  debug  loop  until  done 
no,  so  why  the  interrupt’ 


f  r  ame 


c  o  n  t 


dec 

d  x 

; 

por 

t _b  2  to  get  msb 

i  n 

a  1 

,  d  x 

mo  v 

ah 

,  a  1 

; 

put 

in  msb  of  result 

dec 

d  x 

; 

get 

lsb  form  port_a2 

i  n 

a  1 

,  d  x 

o  r 

a  x 

,  a  x 

' 

i  f 

2  ms  bits  on ,  then 

j  s 

mo 

r  e_d  a  t  a 

_1 

' 

new 

f  r  ame 

mo  v 

d  s 

d  a  t  a_o  ffsetCbxltsi 

1  ,  a  x 

,  store  the  data 

mo  v 

wo 

r  d  ptr 

d  s 

data_offset  +  2Cbx3Csi]  ,0 

cmp 

WORD  PTR 

c  s 

thresholdsCsi 

]  , a  x  ,  is  this  t 

j  ns 

c  o  n  t  _1 

,  no 

,  b  e I ow  threshold, 

j  ae 

c  o  n  t  _t 

/ 

no  , 

b  e 1 ow  threshold, 

cmp 

c  s 

i nh i b  i 

t_ 

t  erap_i nc ,  1 

i 

all  ready  flagged’ 

j  e 

c  o  n  t  _1 

■ 

yes 

mov 

c  s 

i nh i b  i 

t  emp_i nc ,  i 

inhibit  possible  t 

mov  word  ptr  c s .C h a nn e 1 _Th r e s h o 1 d + 0 , a x 

value  exceeding  thresholds 

mov  word  ptr  cs  C h a nn e 1 _Th r e s h o I d + 2 , ? i 

and  the  i  nd  ex  too 

sar  word  ptr  cs  Ch ann e 1 _Th r e s h o 1 d + 2 , 1 

sar  word  ptr  c  s  Ch  a  nr.  e  I  _Th  r  e  s  h  o  1  d  +  2  ,  1 


jrh  debug 
jrh  debug 
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call 

d 1 s  p  _T  h  r  e  s  h 

con  t_l  : 

add 

s  i  , 

4 

I 

bump  data  pointer 

3  mp 

mo  r  e_d  a  t  a _2 

/ 

not  new,  continue 

s  umma  t i on 

mo  r  e_d  a  t  a_ 

.1  . 

and 

a  x  , 

03  f  £  f  h 

/ 

clear  two  top  bit 

s  f  r  om  t  emp 

o  r 

s  i  , 

s  i 

i 

if  index  =  zero. 

conti nue 

s  umma t ion 

3  z 

mo  r  e_d  a  t  a_3 

' 

no  data,  begin  co 

1  I ec  t ion 

cmp 

c  s 

channe I _p  er_sweep_4 

,si  ,  continue  co 

1  1 e  c  t i ng 

data5 

3  9 

mo  r  e_d  a  t  a_2 

/ 

yes,  we  found  a  f 

a  s  t  swe  e  p 

break 

call 

s  um_new 

test  and  s urn  or  f 

u 1 sh  as 

needed 

mo  v 

C  5 

inhibi t  _  t 

emp_i nc  >  0 

,  r  emo  v  e  inhibit 

possible 

temp  i nc 

j  nc 

mo  r  e_d  a  t  a 

, 

and  begin  looking 

for  data 

3  mp 

emp  t  y_and_done 

mo  r  e_d  a  t  a_ 

.3 

mo  v 

d  s 

t  emp  C  b  x ]  , 

a  x 

,  show  the  temp 

3  mp 

mo  r 

e_d  a  t  a_2 

- 

and  start  collect 

ing  the  data 

emp  ■  y 

mo  v 

d  s 

f lagsCbx] 

,  s  i  ,  s  a  v 

e  pointer 

mo  v 

d  x  , 

port  _a i 

mo  v 

a  I  / 

A  1 _I_s 

,  arm  i n  t 

e  r  r  up  t  s 

out 

d  x  , 

AL 

emp  t y_a nd_ 

done 

pop 

c  X 

pop 

e  s 

pop 

b  x 

pop 

a  x 

pop 

d  x 

pop 

d  s 

pop 

s  i 

pop 

d  i 

3  mp 

s  umma  t i o  n_e  x 

i  t 

subrout ines 
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new_t  emp  e  r  a  t  u  r  e 

mo  v 

cs  Time_a t_Temp , 0 

,  start 

timing  again 

mo  v 

c  s  .  t  emp_b  ump  ed , 0 

,  s  h  ow 

new 

start 

new_t  emperature_2 

mo  v 

a  x , c  s  new_t  emp 

,  save 

the 

new  t  emp  for 

s  umm a t i on 

mo  v 

d  s  t emp  C  b  x  3  , a  x 

call 

d  i  s  p  _T i m  e  s 

c  1  c 
ret 

su«_new:  ,  if  summation  buffer  and  data_capture  are  the  same, 
sum  it  up 

;  if  not  same,  send  summation,  and  start  new  summation 
with  data_capture 
mo  v 

b  u  f  f  e  r 

mo  v 
1  e  s 
test 
b  u  f  f  e  r  ? 

3  z 

s  umm i ng 
mo  v 
cmp 

j  z 

cmp 

3  g 

call 


d  s  f  l  a  g  s  C  b  x  3  ,  s  i  ,  save  the  index  into  the  data 

c s  new_t emp , a x  ,  save  new  temp 

d i  , c  s  s  umm a  t ion_buf  fe  r _p  t  r 

es  .  f  lags!  di  ]  ,  3  f  f  f h  ;  data  in  summation 

no_d a  t  a 

a  x , d  s  t  emp  C  b  x  3 
e  s .  t emp  C  d i ]  , a  x 
same_t  emp 
c  s  ma  x_  t  emp , a  x 
no_d  a  t  a 
flush 


no,  use  data  as  is,  no 


i f  t  emp  ma  t  che  s 
continue  summation 
are  we  now  done1 
no,  continue 


call 

f 1 u  sh_t  o_d i s  k 

,  yes  we  a  r 

exit 

mo  v 

a  1 

a l_Re set 

,  kill  t  emp 

rao  v 

d  x 

port  __a  1 

out 

d  x 

a  l 

x  o  r 

a  x 

a  x 

out 

d  x 

a  1 

mo  v 

c  s 

a  c  t  i  v  e__F  1  a  g  ,  0 

,  s  h  ow  inact ive 

s  t  c 

,  s  h  ow  done 

ret 

,  return 

data 

flush 

new_t  emperature 


call 

3  mp 

same_t  emp 
i  nc 
call 

mo  v 

summation  buffer  limits 


otherwise,  flush  sum  buffer 
and  start  with  a  new  sum 


word  ptr  cs  t i me _a t _ t emp 
d  l  s p _T  me; 

ax,es  elapsed_t imeCdi 3 


,  t i me  at  this  t  emp 

,  insure  in  range  of 
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cmp 

ax, WORD  PTR  cs  raax_ 

swe  ep_bu£  fer 

/  3  ns 

f 1 ush_i t 

,  enough  data  summed,  start 

new  sum 

j  ae 

f 1 ush_i t 

,  enough  data  summed,  start  new 

sum 

mo  v 

ax,cs  temp_buraped 

,  have  we  bumped  this  temp? 

o  r 

a  x  ,  a  x 

3  n  z 

s  ame_t  emp_4 

mo  v 

ax  ,  cs .  t ime_at_temp 

,  too  long  at  t  emp  ? 

cmp 

ax , cs  raax_sweep 

,  exceeding  max  thresholds’ 

i  3  s 

s  ame_t  emp_i 

,  no,  more  tests  follow 

3  b 

s  ame_t  emp_l 

,  no,  more  tests  follow 

s  a  m  e  _  t  emp_2  : 

mo  v 

c  s :  t  emp_b  ump  e  d ,  1 

;  show  we've  bumped  temp 

call 

b  ump__  t  emp 

j  rap 

s  arae_t emp_4 

,  continue  summation 

s  ame_t  emp_i 

cmp 

a  x , c  s  : mi n_swe  e  p 

,  have  we  been  here  long 

enough  ? 

,  3  s 

s  a  rae_  t  emp__4 

,  no,  we  must  wait  more 

j  b 

s  ame_t emp_4 

,  no,  we  must  wait  more 

t  e  5  t 

cs : inhibi t_t*mp_inc 

,0ffffh  ;  can  we  inc  temp? 

j  z 

s  ame_t  emp_2 

,  yes,  so  do  it  and  continue 

s ame_t  emp_4 

mo  v 

ax, ds  flagsEbxl 

,  and  length  match 

cmp 

ax.es  flagstdi] 

,  ? 

j  n  z 

f 1 u  s  h_i t 

,  data  ->  send  it 

s  uro_i t  _u  p 

mo  v 

a  x , c  s  new_t  erap 

,  save  new  temp  in  slot  for 

next  t  erap 

mo  v 

d  s  t  erap  C  b  x  3  ,  a  x 

i  nc 

word  ptr  es  elapsed 

_t imetdil  ,  time  in  this 

s  uraraa  t  i  o  n 

mo  v 

cx,dsflagsCbx3 

,  set  counter 

mo  v 

word  ptr  d  s  f  I  a  g  s  C  b  x  ]  ,  0  ,  start  next  data 

capture  fresh 

sar 

c  x  ,  1 

s  a  r 

c  x  ,  1 

mo  v 

si  , d  a  t  a_o  f  £  s  e  t 

,  starting  address  of  data 

add 

s  i  ,  b  x 

push 

d  i 

,  save  the  summation  buffer 

i  .!  d  t  £•  S  5 

add 

di,data_offset 

a  d  d_  1 

mo  v 

a  x  ,  d  s  C  5  i  3 

,  get  1 sw 

add 

e  s  [  d  i  ]  ,  a  x 

,  form  I  owe  r  sum 

3  nc 

a  d  d_2 

i  nc 

wo  rd  ptr  es  2Cdi3 

,  for  carry,  inc  msw 
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add  2  : 


add 

s  l  ,  4 

,  b  ump 

pointers 

add 

d  l  ,  4 

loop 

a  d  d_l 

,  loop 

counter 

pop 

d  l 

c  1  c 

ret 

f 1 u  sh_i t 

call  flush  ;  output  the  su mm  ation  buffer 

jmp  new_t emp e r a t u r e_2  ,  and  start  anew 


b  ump_t  emp 
push 
mo  v 
add 
mo  v 
mo  v 
mo  v 
add 
add 
add 
mo  v 
mo  v 
mo  v 
mo  v 
mo  v 
mo  v 
pop 
mo  v 
mo  v 

mo  v 


b  x 

b x , c s : C omma nd e d_Temp  ,  get  commaned  temp 

bx,bx  ,  for®  word  offset 

a x , c s . t emp_r amp C b x 3  ,  get  #  pulses  for  next  step 

c x , c s  Temp_i nc_p u 1 s e s  ;  #  pulses  this  step 

c s  Terap_i nc_p u I se s , a x  ;  and  set  for  next  step 

cs  C omma nd e d_Temp , c x  ;  form  new  temp 

bx,cx  ,  and  index  into  the  tables 

b  x  ,  c  x 

a x , c s  M i n_Swe e p_t emp C b x 3  ,  get  new  max  and  mins 

c  s  mi n_swe  e  p , a  x 
a  x , c  s  Ma  x_Swe  e  p_t  emp  C  b  x  3 
cs  ma  x__swe  e  p  ,  a  x 

ax,cs  Ma x_Swee p s_Sumt b x 3  ,  max  sums/buffer 

c  s  Ma  *_Swe e  p_B u  f  fer  , a  x 
b  x 


d  x  ,  p  o  r  t _a 1 
a  1  ,  a  1 _t  emp 

a  h , a  1 _t emp 


control  port 
ieave  inter  r 
and  wo  r  k  w i 


upts  alone, 
t  h  t  emp 


or  c  x  ,  c  x 

awa  y 

jnz  bump_temp_l 

mov  cs  Time_a t_t emp , 0 

mov  c s  Temp_b urap e d , 0 

imp  bump_temp_<3 

b  ump_t emp_l 

out  d  x  ,  a  I 

x  o  r  a  I  ,  a  h 

out  d  x , a  I 

x  o  r  a  1  ,  a  h 

loop  bump_temp_i 

bump_temp_4 

call  d i s  p  _T  emp 

c  l  c 

ret 


if  count  =  0,  1st  inc  =  throw 


set  hi 
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t  lush 


Ids 
i  e  s 

mo  v 
add 
mo  v 
mo  v 
t i me  off 


bx,cs  da t a_cap t u r e_p t r 
d i  ,  c  s  s  umma  t i o  n_b  u  f  fer_pt  r 

ax.es  elapsed_timeCdi3 
»*, es : star t_t inetdi ] 
dsstart_ti me  C  b  x  3  , a  x 
word  ptr  d s  e 1  a p s e d_ t 1  me t b x 3 ,  1 


sat 

set  to 

wo 

count 

r  d 

P  t  r 

e  s 

sac 

wo 

r  d 

p  t  r 

e  s 

mo  v 

wo 

r  d 

p  t  r 

c  s  . 

mo  v 

wo 

r  d 

P  t  i 

c  s 

roc-  v 

b  x 

,  c  s 

buffer 

add 

cmp 

jne 

HOC 

r I u  sh_l 
mo  v 

t  i  me 

Ids 
mo  v 


too 


mo  v 
mo  v 

cmp 
3  n  z 


b  x  ,  4 

bx  ,  < 4  *No_Bu f f  e  r  s ) 
f 1  us h_ 1 
b  x  ,  b  x 

cs  buffer  index, bx 


update  time  stamp 

,  start  elapsed 

,  convert  byte 

r_ptr+0,bx  ,  dc  ->  sb 
r  _p  t  r  +  2  ,  d  s 

,  get  next  dc  buffer 

,  wrap  around’ 

,  yes,  start  again 
,  save  index  for  next 


bx.cs  b u f f e r _cha i n C b x 3 

word  ptr  c  s  da  t  a_c  a  p  t  u  r  e_p  t  r -t-0  ,  b  x  ,  and  the  dc  -> 
word  ptr  c s  d a t a_c a p t u r e_p t r + 2 , d s 

word  ptr  ds:fiagsCbx3,0  ,  start  data  capture  fresh 


di  ,  <  6  *  b  u  f  fer_lengt  h_b ) 
flush  2 


do  we  need  to  write? 
<  >  0  - >  no 


flu  s h_3 

push 

a  x 

push 

b  x 

push 

c  X 

push 

d  x 

push 

d  s 

mo  v 

c  x  d  i 

,  transfer  length 

sectors 

add 

cx , buf  fer_length_b 

,  in  bytes  to 

s  a  r 

c  x  ,  1 

,  wo  r  d  s 

mo  v 

c  1  ,  ch 

;  and  to  sectors 

and 

cx  ,  07  f h 

mo  v 

dx.cs  s t a r t i ng_se c t o r 

,  starting  sector 

add 

cs  s t a r t i ng_sec t o r , c x 

;  update  for  next 

transfer 
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mo  v 

bx.es 

,  s  e  gmen  t  address 

mo  v 

d  s  ,  b  x 

XOR 

BX  ,  BX 

,  SEGMENT  OFFSET 

c  a  i  I 

writ  e_d i s  k 

pop 

d  s 

pop 

d  x 

pop 

c  X 

pop 

b  x 

pop 

*  x 

flu  sh_2 
c  1  c 
ret 

flush  to  disk 


call 

flush 

; 

output  current 

s  umma  t ion 

mo  v 

wo  r  d 

P  t  r 

ds  elapse  d_t i me  t  b  x  1  ,0 

call 

flush 

; 

second  with  0 

e  t 

cmp 

wo  r  d 

P  t  r 

cs  s umma t i on_b u f f e r_p t r , 0  , 

did  we  do  a 

wr  i  t 

e  ? 

j  n  z 

flush 

_3 

/ 

no ,  do  it  now 

c  1  c 

ret 

READ 

_DI  SK 

mo  v 

a  x  ,  c  s 

Disk_drive  ,  drive  # 

i  n  t 

3  7 

,  do  disk 

write 

j  nc 

RD_4 

nop 

,  no  error  checking 

RD_<J 

pop 

a  x 

,  r  emo  v  e 

the  garbage 

left 

by  dos 
RET 

WRITE 

_DI5K 

mo  v 

a  x , c  s : Di s k_d  rive 

,  drive  # 

i  n  t 

38 

;  do  disk  write 

j  nc 

WD_4 

nop 

,  no  error  checking 

VD_4 

pop 

a  x 

,  remove  the  garbage 

left 

by  dos 

RET 

END  SUMMATION 
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START  ENDP 
SUMIT  ENDS 


»_stick  segment  PARA  stack 
dw  5  0  dup  ( 0  ) 

t  op_s  tack  dw  0 
a__s  tack  ends 

END  SUMMATION 


'  STACK  1 
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<*  Copyright  1986  Michael  Rogers  and  GeoChemical  Inc  *) 

(  *  all  rights  reserved  *  ) 

(  *  SC-*) 

MODULE  DATAREAD, 

FROM  SYSTEM 

IMPORT  BYTE ,  WORD,  ADDRESS,  ADR,  SIZE,  TSIZE,  CODE, 

INBYTE,  OUTBYTE ,  INUORD,  OUTVORD , 

FROM  System 

IMPORT  Terminate,  Status, 

ProcessPtr,  P r o c e s s De s c r i p t o r ,  curProcess; 

FROM  Memo r y Op e r a t 1 o n s 

IMPORT  FillChar,  Move,  Hi,  Lo,  Swap,  And,  Not,  Or,  Xor,  Shr, 
MemGet,  MemWGet,  PortGet,  PortWGet,  MemSe t ,  MemVSet,  PortSet, 
PortVSet,  Ptr,  Ofs,  Seg,  Cseg,  Dseg,  Sseg,  MemAvail, 

FROM  Float  ingUt i  I  i t i es  IMPORT  Frac,  Int,  Round,  Float,  Trunc, 
FROM  Sc r eenHand 1 e r 

IMPORT  ClrEol,  ClrScr,  DelLine,  InsLine,  GotoXY,  WhereX, 
WhereY , 

Crtlnit,  CrtExit,  LowVideo,  NormVideo,  HighVideo,  SetAt- 
tribute, 

GetAttribute,  normalAtt,  boldAtt,  reverseAtt,  under  1 i neAt  t , 
biinkAtt,  boIdUnderlineAtt,  blinkUnderlineAtt,  boldBl  inkAtt  , 
reverseBl inkAt t  ,  boldUnder 1 ineBl inkAt  t , 

FROM  TF i I e I O 

IMPORT  Append,  AssignFile,  Close,  Erase,  Flush,  Rename, 

Reset,  Rewrite,  Truncate,  Eof, 

FROM  TReallO  IMPORT  ReadReal,  UriteReal, 

FROM  TT ext  10 

IMPORT  Readlnt,  ReadCard,  ReadChar,  ReadString,  ReadLn, 
ReadBuf  fer  , 

Writelnt ,  WriteCard,  WriteChar,  WriteString,  WriteBool , 

Vr i t  e  L n , 

Eoln,  SeekEof,  SeekEoln, 

FROM  TBinary 10 

IMPORT  Read,  BlockRead,  Write,  BlockWrite,  B I o c k RWRe s u 1 t , 
FiiePos,  F i leSi te ,  Seek,  LongFileSize,  LongFilePosition, 
LongSeek , 

FROM  TKerne 1 10 

IMPORT  File,  FileType,  OptionMode, 

StatusProc,  ReadProc,  WriteProc,  ErrorProc, 
stdinout,  input,  output,  con,  trm,  kbd,  1st,  aux,  usr, 
conStPtr,  conlnPtr,  auxInPtr,  usrlnPtr,  conOutPtr,  IstOutPtr, 
auxOutPtr,  usrOutPtr,  errorPtr,  IOresult,  KeyPressed, 
lOBu  f fer, 

IOCheck,  DeviceCheck,  CtrlC,  I np u t F i 1 e Bu f f e r ,  OutputFi leBuf- 

f  e  r  , 

FROM  TDOS  IMPORT  MsDos,  Intr,  RegPack, 

CONST 

maxint  =32767, 

Seui  -  QaOOOH, 

DiskDrive  =2; 
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NMaxSweeps  =  30000, 
Solid  *  OFFFFH , 


TYPE 

ShortString  =  ARRAY  CO. .253  OF  CHAR, 

Op t i on s A v a i 1  a b  I  e  =  (FirstSet  ,  SecondSet  ,  ThirdSet  ), 
IDType  =  ARRAY  Cl  5]  OF  CARDINAL, 

PointerToVord  =  POINTER  TO  INTEGER, 
stringSO  =  ARRAY  CO  80-13  OF  CHAR, 
doubleinteger  =  ARRAY  CO. 13  OF  INTEGER, 


VAR 

AMUM, 

AMU  I  , 

realcounts , 
s  urn , 

I  , 

F i r  s  t Amu , 

Last  Amu 
t  h  r  owAwa  y , 
numb  erofprofiles, 
MAXTEMP , 

S  t  a  r  t i ng Amu , 

End i ng  AMU , 
x  t  emp , 

e I ap  sedT ime , 
r  s  i  i  e  , 
count  e  r , 
Difference, 

X  , 

3  , 
i 

diskBlock 
comma , 
achr 
Done  , 
done 
r  e  s  u  1  t 


REAL  , 


INTEGER , 
CARDINAL , 


CHAR  , 

BOOLEAN , 
RECORD 
a  x  , 
b  x , 
c  x  , 
d  x  , 
bp  , 
s  i  , 
d  i  , 
d  s  , 
e  s  , 
flags 
END , 


INTEGER, 


D r i v e r Pa r aroe t e r B 1 o c k  RECORD 

SummationPtr  POINTER  TO 
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doubleinteger  ; 

Th  reshoIdsPtr 

POINTER  TO 

doubleinteger  , 

T emp Ramp P  t  r 

POINTER  TO 

INTEGER , 

TempMi nP  t  r 

:  POINTER  TO 

INTEGER , 

TempMa  uPtr 

.  POINTER  TO 

INTEGER , 

Max  Swe  e  p  s  P  t  r 

:  POINTER  TO 

INTEGER , 

Channe 1 sPerSweep 

INTEGER, 

Ma  xT emp 

INTEGER , 

Th  r  owAwa  yNum 

INTEGER, 

F  i  rstSectorNum 

CARDINAL , 

DiskDr iv  eNum 

INTEGER, 

MethodFi 1 eName 

stringBO, 

SAMU 

REAL  ; 

E  AMU 

:  REAL; 

<*  SPARES  ARE  USED  ONLY  TO  PROVIDE 

SPACE  TO  RECEIVE  DATA  TRANS- 

FERRED  WHEN  A 

SINGLE  SECTOR  IS 

READ  DIRECTLY  FROM 

THE  DISK  *) 

SPARES 

ARRAY  Cl  (512 

130)1  OF  BYTE, 

END  , 

dataRecord 

RECORD 

size 

INTEGER , 

t  emp 

INTEGER , 

s  t  i  me 

INTEGER , 

e  t  i  me 

INTEGER , 

d  a  t  a  A 

ARRAY  CO  40951  OF  INTEGER, 

spares 

ARRAY  CO  5123  OF  INTEGER; 

END  ; 

f irstetc 

ShortString, 

o  u  t  F i 1 eName 

string8Q , 

Y 

ARRAY  CO.  51 

OF  ShortString, 

dataFi le 

.  File, 

ha  I fwi d  t  h , 

1  owe  r , 
upper , 

Channe l o  £ interest 
realZero , 
r  e  a  1  Sum 
r  e  a  I Temp 
realCounts 


ARRAY  CO  .53  OF  INTEGER, 

ARRAY  CO  20481  OF  REAL , 

ARRAY  CO.  2  5  6  1,  CO  .51  OF  INTEGER, 
ARRAY  CO  2  5  6  1,  CO  51  OF  REAL, 


PROCEDURE  sumToReals 
VAR 
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i :  INTEGER, 

BEGIN 

FOR  i  =  0  TO  rsite-1  DO 

realSumli]  =  FIoat(dataRecord.dataA[i*2])+Float<dataRecor- 
d  da taAC i *2+ 1 ] ) *6  5  5  34  0 + r e a  1 S am L  i 3  , 

END  , 

END  sumToReals; 


PROCEDURE  Re adD i s k S e c t o r s  <  VAR  StartingSector  CARDINAL, 

Nurobe rOf Sec t o r s  INTEGER, 
DataRecord  Pointer- 

T  oWo  rd)  , 

BEGIN 

WITH  result  DO 

cx  =  Numb e r O £ S e c t o r s , 
dx  :*  StartingSector, 

INC ( S t a r t i ngSec t o r ,  cx), 
ds  :=  Se g ( ADR < Da t aRe c o r d ‘  >  >  , 
bx  *  O £ s ( ADR ( Da t a Re c o r d ' > > , 
ax  =  2,  <*read*> 

Int  r  <  04  £H,  resul  t  )  , 

END  , 

END  ReadDi skSec  tors , 

PROCEDURE  Rea dD i skHeade r ; 

BEGIN 

diskBIock  : =  Seci, 

Re  a dD i s kSe c t o r s (  diskBIock,  1,  ADR ( Dr i v e r Pa r ame t e r B 1 oc k ) )  , 
END  ReadDiskHeader; 

PROCEDURE  readDisk, 

BEGIN 

Re  a dD i s kSe c t o r s  (diskBIock, 

17,  <*  20  4  8  *  4  4-5  1  2  /  5  1  2  #  sectors*) 

ADR(dataRecord) )  , 

END  readDisk, 

PROCEDURE  FirstEtc, 

BEGIN 

YC1]  =  'first1, 

YC23  =  'second', 

Y  C  3  I  =  'third', 

YC  4 )  =  '  four  th  '  ; 

Y  C  5 1  : «  'fifth', 

firstetc  =  Y  C i  3  , 

END  F  i  r  s  t  E  tc  , 

PROCEDURE  Vr i t eDa t aToDi sk F i I e , 

BEGIN 

FOR  i  .=  1  TO  numb e r o f p r o f i i e s  DO 

F  i  r  s  t  E  t  c  , 

Wri teString (stdinout,  ’  Enter  file  for  ’,0), 
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WriteString(stdinout,  £icstetc,0)  , 

Wr  i  t e S t r i ng < s t d i no u t  ,  ‘  raw  temperature  profile 

ReidBuf fer(on) , 

ReadString (stdinout,  outFil eName ) , 

ReadLn( stdinout ) , 

ReadBuf  fer (of  f )  , 

AssignFilefdataFile,  outFil eName,  tent  )  , 

Rewr i t e ( d a t a F i  I  e  ,  0), 

s  um  =  Float(O), 

Wr i  t  e  Re  a  1 (dataFile ,  res lZe rot Chsnne 1 o ( inte res t [  i  ] 
Wr i teLnfdataF i 1 e ) , 

VritelntCdataFile,  (counter-!) ,  6), 

Wr  i  teLn(dataF l  Ie>  , 

FOR  3=1  TO  counter-1  DO 

Wr  i  telnt  (  da  t  aFi  le  ,  r  ealTemp  C  i  3  C  i  i  ,  4  )  , 

Wr i t eRea 1  (dataFile,  realCountst  j  3C  i  3  ,  8,  0  >  ; 

WriteLn(dataFile)  , 

END  , 

CIose(dataFi le)  , 

END  , 

END  Wr i teDa  taToDi skF i  1 e , 

FROCEDURE  Ch a nn e I O f I n t e r e s t  , 

BEGIN 

WITH  DriverPararaeterBlock  DO 

FirstAmu  .=  Dr i verParame  ter Bl ock  . SAMU , 

LastAmu  :=  D r i v e r P a r ame t e r B 1 o c k  E AMU , 
WriteLn(stdinout) , 

Wr i teSt  r ing( stdinout  , 

Mass  =  1  , 0 i  ,Wr i teReal  (stdinout  , First  Amu ,10,5)  , 

Wri teln(stdinout ) , 

Wr  i  teSt r inq (stdinout , 

Mass  =  '  ,0)  jWriteReal  (stdinout, LastAmu,  10,  5), 

AMUM  =  FLOAT! Channe 1 sPerSweep- 1 ) / ( Las t Amu-F i 
AMU  I  =  i  0 -< F i r s t Amu  * AMUM)  , 

END  ; 

WriteLn(stdinout)  , 

WriteLn(stdinout)  , 

Wr i teSt ring! stdinout ,  '  You  may  create 

profiles  at  once  ,0), 

Wr i teLn( stdinout  )  , 

Wri teSt ring! stdinout, 

Your  Cho ice  '  , 0  )  , 

ReadBuf fer(on) , 

Readlnt! stdinout,  numberofprofiles) , 

ReadLnt  stdinout)  , 

ReadBuf  f er ( o  f  f )  , 

Wr i teLn( stdinout ) , 

Wri teString( stdinout ,  '  You  may  choose 

and  halfwidth  of  each  profile’, 0>, 

WriteLn(stdinout) , 


1  ,  0  )  , 


] ,  10,  4  )  , 


Starting 

End i ng 
r  s  t  Amu )  , 

up  to  5  Temp 


the  channel 
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FOR  i  .=  i  TO  nunberofpiof i les  DO 
FirstEtc, 

WriteStringtstdinout,  1  Enter  ',0), 

Ur i teStr ing( stdinout  ,  £irstetc,0)  , 

Ur i test  r ing<  st  dinout ,  '  center  channel  and  profile  halfwidth 

'  ,  0  )  , 

ReadBu  f  f  e  r  <  on )  ; 

Readlnt ( stdinout ,  Channel  of int eres 1 1  i  ]  )  , 

Readlnt ( stdinout  ,  halfwidthCil;  , 

ReadLntstdinout  )  , 

ReadBu  f  f  e  r  <  o  f  f  )  , 

END  , 

Determinehal fwidth, 

WriteLn(stdinout), 

END  ChannelOf Interest , 

PROCEDURE  Determinehal fwidth; 

BEGIN 

FOR  i  =1  TO  numberofprof lies  DO 

iowerCil  :»  Channelof  interestt  i  1  -  ha  I  fwi  <J  th  C  i  ]  , 
upper! il  :  «  Channe  1  of  interest  [  i  ]  a-  hal  fwidtht  i  1  ; 

END  , 

END  Determinehalfwidth, 


PROCEDURE  ReadDa t aAndZe r oSuml t , 
BEGIN 

FOR  i  =  0  TO  2047  DO 
real Sum! i 1  =00, 

rea lZero i i  1  =  0  0, 

END, 

ReadDi skHeade r ,  (*  put  data  in 

throwAway  :=  DriverParaieterBiock 
rsize  .=  D r i v e r P a r a me t e r B 1 o c k 

MAXTEMP  =  DriverParameterBIock 
Cl  rScr  , 

Wr i  teLn(stdinout)  , 

Wr i teLn<  stdinout  )  ; 

Ur i teSt  ring<  stdinout  ,  ' 
analysis  ',0), 

Writelnttstdinout, MAXTEMP, 5) , 

Wr i teLn( s  tdinout  )  , 

Ur i t gSt  r i ng ( s t di nou t ,  ' 
s we  e  p  1  ,  0  )  , 

Ur i telnt (stdinout  ,  rsize, 5), 

Ur i  teLn< stdinout  )  , 
done  =  FALSE, 

WITH  result  DO 

WITH  dataRecord  DO 
elapse  dT i me  =  0  , 

REPEAT 

t  e  a  d  D  i  s  k  , 


header  of  file  *  > 
Th  r  owAwa  y Num , 
Channe 1 sPer  Swe  e  p , 
Ma  xTemp , 


Maximum  Temperature  for 


Number  of  channels  per 
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0 )  OR  (size 


I NC  <  e  I  a  p  s  e  dT  i  me  ,  etime), 

UNTIL  (  (.elapsedTime  >=  thiowAway)  OR  (etime  = 

a  0  )  >  , 

WriteString(stdinout,‘  Number  of 

swe  eps  read  ',0), 

Ur  i  telnt ( s tdinout  ,  elapsedTime , 5 )  , 

Wr l t  e  Ln ( s  t  d i no  u  t  >  ; 
elapsedTime  =  0 ; 

REPEAT 

IF  size  =  rsize  THEN 
s  u  mT  o  R  e  a  I  s  , 

I NC ( e 1  a p s e dT i me ,  etime), 

END  , 

readDisk, 

UNTIL  ((etime  =  0)  OR  (size  =  0)  OR  (temp  <> 

WriteString (stdinout , 1  Number  of 

tion  sweeps  read  ‘,0), 

Wri telnt ( stdinout ,  elapsedTime,  5  >  , 
UriteLn(stdinout) , 

FOR  i  =  0  TO  2047  DO 

realZeroCil  :=  reaiSumCi]/Fioat(eIapsedTime 
real  Sum f i I  =00, 

END  , 

elapse  dT i me  =  0 , 

counter  =  1, 

ChannelOf Interest , 

REPEAT 

REPEAT 

IF  ( e 1  a p s e dT i me  =  0 )  THEN 

xtemp  =  dataReeord . temp, 

END  , 

IF  size  =  rsize  THEN 
sumT o Re  a  1 s  , 

I  NC  (  e i a p s e dT i me  ,  etime), 

END  , 

r  e  a  d  D  x  s  k  , 

UNTIL  ( ( t emp < > x t emp )  OR  (etime=0)  OR  (size= 
FOR  i  =  i  TO  nuraberofprofi les  DO 
realcounts  =  0  0, 

FOR  :  =  iowerCil  TO  upped  i]  DO 

realcounts  =  realcounts+(realSum[j]/Fl 

Time) ) , 

END  , 

r e a  1 Temp C c o un t e r I C i ]  =  xtemp, 

real  Count  st  counter  1 t  i  1  =  realcounts, 

FOR  j  =  1  owe r C  i  1  TO  uppe  r  C  i  1  DO 

reaiSurofj]  =  0  0, 

END  , 

END  , 

counter  =  counter+1, 
elapsedTime  =  0, 

IF  < xtemp) =MAXTEMP>  THEN 


thr owawa  y 


0  )  )  , 

zerocor  rec- 


)  )  , 


oat  (elapstd- 


TRUE 


done  = 

END  , 

UNT I L  done, 

Wr i teSt  t  mq( s tdinout ,  '  Finished  reading  data 

’  ,  0  )  , 

WriteLn(stdinout)  , 

Wr i  teDataToDiskFi  le  , 

END  , 

END  , 

END  ReadDa t a AndZe r oSuml t , 


BEGIN  ("mainline*) 
AMU  I  =0  0, 

AMUM  =  1.0, 


0  ) 


REPEAT 
C  1  r  S  c  r  , 

Wr  i  t  e  Ln ( s  t  d i no  u  t ) , 

Wr i teLn(stdincut ) , 

Wri  teStr ingCstdinout 
SOFTWARE ' ,  0 ) , 

Wr  i  teSt  r inq( stdinout 
ical  Services,  Inc  ' ,  0) 

Wri  leSt r ing( s t dinout 
Da  t  a  r  e  a  d  ‘  ,  0), 

WriteLn(stdinout) ; 

Wr  i  t  e  L  n  ■'  stdinout  ) 

WriteLn (stdinout) , 

Wr  j  t  e  L  n ( stdinout  >  , 

Wri  *eSt  ring(std incut  , 
disk  and  write  a  temp  profile1, 

Wr i telnf stdinout ) , 

Wr i  *  eLn( stdinout  )  , 

Wr i teLn(stdinout) , 

Wr  i  test  ring (stdinout , 

DOS ‘  ,  0 )  , 

Wr i t  e  L  n ( stdinout  )  , 

Wr  i  teLn( stdinout  )  , 

Wr  i  teLn(  stdinout  >  , 

Wr  l  ieSt  r inq( stdinout  , 
selection  CR  or  Q  3  '  0i, 

ReadBuf  f  er ( on) 

ReadChar ( stdinout ,  achr), 

ReadLn( stdinout)  , 

ReadBuf  fer(  off)  , 

Wr i  teLntstdinout  )  , 

Wr i  t  e  L  n (  stdinout  '  , 

CASE  achr  OF 

r  ■  ^  ReadDa  t  a  A-dZe  r  oSura i  t  , 

'  q  '  '  Q  '  , 

x  X  Te  ran  na  t  e  (  no  n»a  i  ’  , 

ELSE 


GSI  DMA 

Wr  i  teLm  std  inout  )  , 

Copyright  1986  Geochem- 
Wri teLn( stdinout) , 

P  r  og  r  am 


Read  data  f  rom  hard 


Q  Quit  and  return 
Wr  i  teLn<  stdinout )  , 


t  o 


Enter  your 
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END ,  (‘case*) 
WriteLn(stdinout)  , 
UNTIL  FALSE, 

END  DATAREAD 


{  Copyright  1986  James  R  Hanratty  and  GeoChemical  Inc.) 
{  ail  rights  reserved  ) 

C  4  C  -  ) 


PROGRAM  MarkGood , 


boolean; 

char. 


integer , 
record 
a  x  , 
b  x  , 
cx  , 
d  x  , 
bp  , 
s  i  , 
d  i  , 
d  s  , 
e  s  , 

flags  integer, 
end, 

data_record  record 

data  array  CO  2553  of  integer, 

end, 


procedure  read_disk, 
begin 

with  result  do 
begin 

c  x  =  I  , 

d  x  =  disk  _b lock, 
ds  =  segfdata_record), 
bx  =  ofs(data_record), 
ax  =  2,  (read) 

intr  (  4  <i  f  ,  result), 

CwriteLn'  '  read  '  , d i sk_B lock),  ) 
end, 
end, 


VAR 
done 
3  chi 
i  , 
j  , 

disk  _b lock 
r  e  s  u  I  t 


1 


Page  79 


procedure  write_disk, 
begin 

with  result  do 
begin 
c  x  =  i  , 

dx  : =  disk _b lock, 


d  s  = 

seg(data_record) , 

b  x  = 

ofs<data_record)  , 

ax  = 

3,  {write) 

end  , 

<  w  r  i  t  e  i  n  ( 

'write  disk  block 

—  1 

, d i s  k_B lock)  ,  ) 

intr  C  $  4  f  ,  result), 

end  , 

BEGIN  ( raa 
repel t 
w  r  i  t  e  1  n  , 
w  r  i  t  e  1  n  , 

ini i ne  ) 

wr i  t  e 1 n (  ' 

Mark  good  those  hard 

disk  bad  blocks 

f  r  om 

ma  r  k  bad  ' 

wr i t  e I n , 
wr l t  e 1 n , 
wr i  t  e 1 n (  ' 

wr i  t  e i n , 

1  Examine  FAT  for 

bad 

blocks  in  data 

area' 

)  , 

wr i  t  e 1 n  <  ' 

2  Mark  last  1/3  of 

hard  disk  good'), 

wr i  t  e I n , 

wr  i t  e I n i  1 
wr i t  e I n , 

3  Examine  manually 

a 

sector'). 

wr i  t  e 1 n  <  ' 

Wr i t  e I n , 

4  Exit'), 

write  (  ' 

Enter  your 

select  ion 

=  ‘  >  , 

a  c  h  r  = 

■  , 

readln(achr)  , 

case  acnr 

0  f 

'  1  b  eg  i 

n 

j  = 

0  , 

for 

Disk  block  =  40 

t  0 

6  4  do 

begin 

He  a  d_D i s  k , 

for  i  =  0  to  255  do 
if  j  <  =  10 

then 
begin 

if  data_recorti  d  a  t  a  C  l  1  =  0 

then  tail  is  ok) 
else 

begin 

writeLn(  Possible  bad  disk  area  or  data  in 
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reserved  area  s  i  d 


D i s  k_8 lock  i , 
i  6  , 

d  a  t  a_Re  c  ord  da  t a t  il  ■  4 ) ; 

3  =  j  +  1  , 

if  3  >  10  C  too  many  errors  > 1 

then 
begin 

writet 'Continue  display’  Y/N  =  ‘  , 

readlmachc  '  , 

if  achr  in  C ' y ' , ' Y ' 1  then  j  =  0, 
end  , 

end  , 

end, 
end  , 
end  , 


'  2  '  begin 

for  Disk_biock  .=  40  to  44  do 

begin 

Re  a  d_D i s  k , 

for  i  .=  0  to  255  do  da ta_record  .  da  tat  i  1  =  40000, 

Writ  e_d i sk ; 
end  , 
end  , 

' 3 1  begin 

write( 'Sector  to  read  =  ■>, 

r  e  a  d  1  n  >'  D  i  s  k_b  lock)  , 

Re  a  d_d i s  k , 

for  i  =  0  to  255  do 

begin 

write  ( da ta_record .datalil.4), 
if  <i  mod  16)  =  15  then  writeln, 

end  , 
end, 

else  , 

end;  Cease) 
until  Achr  =  4', 

END  . 
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Copyright  1  9  86  Janies  R  Hanratty  and  GeoChemical  Inc  ) 
C  all  rights  reserved  ) 


{  $  C-  ) 

PROCRAM  MarkBad, 


boolean, 

char, 


integer, 
record 
a  x  , 
b  x  . 
c  x  , 
dx  , 
bp  , 
s  i  , 
d  i  , 
ds  , 
es  , 

flags  integer, 
end  , 

record 

data  array  CO  255]  of  integer, 

end, 

procedure  read_disk, 
begin 

with  result  do 
begin 

c  x  =  1  , 

d  x  =  d i sk_b lock, 
ds  =  seg(data_record>, 
bx  =  ofs<data_record), 
ax  =  2,  (read) 
intr  <  S  4  f  ,  result), 

!wt j  teLnt  1  read  '  , d i s k _B i o c k )  ,  ) 
end, 
end, 


procedure  write_disk, 
begin 

with  result  do 
begin 

c  x  =  1  , 

dx  =  d l s  k_b lock. 


VAR 
done 
ach  r 
i  , 
j  , 

d  i  s  k__b  lock 
r  e  s  u  I  t 


data  record 
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d  s 

= 

seg(data_record) 

b  x 

’  e 

o  f  s ( da  t  a_r  ecord) 

a  x 

:  = 

3,  (write) 

end 

l 

C wr i t  e 1 n (  ' 

write  disk  block 

i  n  t  r  ( 

i  4  f 

,  result) , 

end  , 


BEGIN 

( ma 

i 

n  I  i 

ne  ) 

repea 

t 

wr  i 

t  e 

i 

n  , 

wr  i 

t  e 

i 

n  ; 

wr  i 

t  e 

i 

n  (  * 

Ma  r  k 

h  a 

r  d 

d  i  sk 

b 

a  d 

wr  i 

t  e 

i 

n  ; 

wr  i 

t  e 

i 

n  , 

wr  i 

t  e 

1  n(  ' 

1 

Exaoi 

ne 

FAT  f 

0 

r 

wr  i 

t  e 

1 

n  , 

wr  i 

t  e 

1 

n  (  ' 

2 

Ma 

rk 

las 

5  t  1/3 

o  £ 

wr  i 

t  e 

1 

n  , 

wr  i 

t  e 

1 

n  (  ' 

3 

E  x 

ami 

ne 

manua 

1 

iy 

wr  i 

t  e 

1 

n  , 

wr  i 

t  e 

I 

n  (  ' 

4 

E  x 

i  t  ' 

)  , 

W  r  i 

t  e 

I 

n  , 

wr  i 

t  e 

(  ' 

s  e  I 

e  c 

t 

l  o  n 

" 

= 

'  )  , 

=  '  , d i s  k_B lock)  ,  ) 


blocks'), 

bad  blocks  in  data  area'); 
hard  disk  bad'), 
a  sector'), 

Enter 


ach  r  ; =  '  ‘  ; 

readln(achr) , 
case  achr  of 
' 1 '  begin 

j  =  0  , 

for  Di sk_b lock  :=  40  to  64  do 

begin 
Re  a  d_D i s  k , 

for  i  -  0  to  255  do 

if  j  <  =  10 

then 
begin 

if  data_record  d  a  t  a  C  i  3  =  0 

then  Call  is  ok) 
else 
begin 

wr i teLn( 'Possible  bad  disk  area  or  data 
reserved  area  s  i  d  ' , 

D i sk_B lock  6 , 
i  6  , 

data  _R  ecord  dataCi)  6), 
j  =  J  +  i  ; 

if  j  >  10  (  too  many  errors’) 

then 

begin 


your 
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wri  t« (  1  Continue  display?  Y/N  = 
readln(achr) . 

if  achr  in  C  '  y  '  ,  '  Y  '  ]  then  j  = 
end, 

end  , 

end  , 
end  ; 

end  , 

' 2  begin 

for  Disk _b lock  =  40  to  64  do 

begin 
Rea d_D i s  k , 

for  i  =  0  to  2  5  5  do  d a t a_r e c o r d . da t a C  i  ] 
Writ  e_d i sk , 
end  , 
end  , 

'  3  '  begin 

wr l t e < ' Se c t o r  to  read  = 
readln(Disk_b lock)  , 

Rea  d_d i s  k , 

for  i  : =  0  to  255  do 
begin 

write  ( da t a_r e c o r d  d a t a C  i  ]  4), 

if  (i  mod  16)  =  15  then  writeln, 

end, 
end  , 

else  , 

end,  lease) 
until  Achr  =  '4', 

END 


'  >  , 


i  f  f  f  7  , 
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MISSION 

of 

Rome  Air  Development  Center 


RADC  plans  and  executes  research,  development,  test  and  selected 
acquisition  programs  in  support  of  Command,  Control,  Communications 
and  Intelligence  (C3 I)  activities.  Technical  and  engineering  support  within 
areas  of  competence  is  provided  to  ESD  Program  Offices  (POs)  and  other 
ESD  elements  to  perform  effective  acquisition  of  C3 1  systems.  The  areas 
of  technical  competence  include  communications,  command  and  control, 
battle  management,  information  processing,  surveillance  sensors, 
intelligence  data  collection  and  handling,  solid  state  sciences, 
electromagnetics,  and  propagation,  and  electronic,  maintainability,  and 
compatibility. 


a 

$ 


